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Preface 


How to Use This Manual 





This manual is not a primer. We assume you know 


some things about Logo or about languages like 
‘Logo. | | 


If you are approaching Logo for the first time, 
you should begin by working through the Intro- 
duction to Programming through Turtle Graphics 
that comes with Apple Logo. Experienced pro- 
grammers and computer scientists should be able _ 


to pick up enough about Logo by reading this 
manual directly. 


This reference manual offers concise descriptions 
of each of the primitives in the Logo language 
along with many sample procedures (programs). 


The chapter headings listed in the Table of Con- 


tents provide a handy reference to how the primi- 
tives are organized. 


| Procedure definitions and sample dialogs be- 


tween the user and Logo are printed in a different 
type font from the rest of the manual. We use this 
font to represent more closely what you see on 
your text screen. Sometimes we further distin- 
guish by using one color ink to represent what the 
computer types and another color to represent 
what you type. There is one liberty we have taken: 
your Apple screen can show 40 characters on a 


line; in this guide we cari show only 37 characters 


across the page. 


There are several ways to use this manual. If you | 
want to know what a particular primitive does, 
look it up in the index, or for a quick reference look 


at Appendix A or.B. If you want to find a primi- 


tive to perform a particular task, look at the cate- 
gories listed as chapter headings. You might also 


_ look for references in.the index. 


PRINT 
PR 


Sample entry 
Here is a typical procedure entry: 


MAKE name object (command) 

MAKE expects two inputs: the first 1s a Logo 
name, the second is any Logo object. MAKE is a 
command (as opposed to an operation). Notice 


_ that the procedure name is printed in capital let- 
ters. Its inputs, if any, are printed in italics. For 


convenience the procedure name is also printed in 
the left margin. 


A procedure entry is followed by a description of 
_what the procedure does, and then some examples 


of its use are given. The examples are set in a dif- 
ferent type to more closely resemble what you see 
on your Apple. . 


Here is a slightly more complicated entry: 


PRINT object (command) short form: PR 
(PRINT objectl object2...) 


The short form, PR, is an abbreviated synonym for 


the command PRINT. Ordinarily, PRINT expects 
one input, any Logo object. But PRINT can also be 
given any number of inputs at once, provided that 
the entire expression is enclosed in parentheses. 


‘We show this variation underneath the visual 


form. 


Overview 


An Introduction to Logo for 
Experienced Programmers | 


Logo Programs : 
A Logo program is a collection of procedures. 


_ For example, a program to draw a house consists 


of these procedures: HOUSE, BOX, TRI, RIGHT, 
FORWARD, and REPEAT. Of these, the last three 
are primitives. The first three are user-defined 
procedures, built out of Logo primitives. 

TO HOUSE | | 

BOX 

FORWARD 58 

RIGHT 38 


TRI 50 
END 


TO BOX 
REPEAT 4 CFORWARD 58 RIGHT 99) 
END 


TO TRI :SIZE- | 
REPEAT 3 CFORWARD :SIZE RIGHT 128) 
END 


We are assuming that you have had some exper 
ence with Logo and have built up an intuitive 
model of what Logo is about. Here we give a more 


_ formal model. This model is just another way to 


think about Logo. It is not meant to replace vour | 
current way of thinking, but rather to enhance it. 


Formal Logo | | 
The actual Logo system implemented for your 
Apple computer is very complicated. It will help if 


_ we consider a formal description of Logo, and 


then Logo as it really is. We begin our formal de- 
scription by restricting ourselves to a part of 
Logo, which we'll call formal Logo; we then relax 
the restrictions in order to describe the language 
you actually use, which we'll call relaxed Logo. 





Every instruction in formal Logo works without _ 
change in relaxed Logo. Conversely, anything 
that can be done in Logo can be done in formal 
Logo, but you will immediately recognize situa- 
tions where formal Logo forces idioms that no one 
would actually use. For example, if you are experi- 
enced in Logo you will notice that numbers look 
peculiar in formal Logo: they are quoted. Since 
numbers are words, you can quote them in re- 
laxed Logo as well. But we do so very rarely; in 
relaxed Logo, numbers are self-quoting. 


Procedures and inputs: We assume that you know 
what procedures.are, at least on an intuitive level. 
Here we develop some more precise ways to talk 

about them. 


In formal Logo, every procedure requires a defi- 
nite number of inputs. These inputs are always 
one of two kinds: they may be words or they may 
be lists. They may be given directly, as in 
FORWARD "100, or indirectly through the media- 
tion of another procedure, as in FORWARD SUM "60 
“40. Both of these examples have the same effect. 
If an input is given directly as a word, it must 
‘be preceded by a quote mark, as in PRINT. 
"FORWARD. If it is given directly as a list, it is sur- 
rounded by square brackets, as in PRINT [HOW 
ARE YOU?). a 


Words and lists: eee is: sande up of characters. 
_ A list. is made up of elements enclosed in square 
. brackets, with spaces between elements; an ele- 

ment is either a word (without quotes) or a list. 


Expressions: A procedure name followed by the 


oe required number of inputs i is an expression. More 


generally, an expression is 


vi 





ea quoted word, 

° alist, or 

e an (unquoted) procedure name followed by as 
_ many expressions as the procedure requires. 


If this seems complicated, look at an example. 
REPEAT is a piece ure that pequures two inputs. 


This i is an expression: 
REPEAT "3 [FD 16] 


_ The following is also an expression: 
REPEAT SUM "21 (FD "10) 


In this case the first input is not a quoted word, 
but an expression involving another procedure, 
SUM. 7 


The following is also an expression: 
REPEAT SUM "3 "1 SENTENCE "FD "10 


Commands and operations: There are two kinds 
-of procedures. in Logo. Those (like SuM) that 
produee a Logo object are called operations. The 

others (like PRINT) are called commands. 


With these definitions we can define a Logo in- 
struction. | 


_ A Logo instruction is a particular kind of expres- 
sion. It starts with a procedure name, and that 
procedure must be a command. All other proce- 

- dures in the expression must be operations. 


Why. does it matter whether an expression is an 
instruction or not? Consider 
SUM "3 "4 


This is an expression, but itis not a naee instruc- | 
tion. : 


Vii 


ELL LA ES SN IE I ee SE FE ET ETE ET SA 
SUM will produce a number; but simply writing - 
SUM "3 "4 does not state what is to be done with 
the number. In fact, Logo will give an error mes- 
sage saying I DON’T KNOW WHAT TO DO WITH 7. 
Some programming languages would allow this 
and simply print the 7. In designing Logo we pre- 
ferred to make every important act explicit; if you 
want something to be printed you should say so. 


Relaxed Logo | 

Everything that can be done in Logo can be done 
using formal. Logo. But-we have allowed some 
other idioms, either to make the language feel 
more natural or to eliminate large amounts of . 


typing. 


Here we list some important relaxations of Logo. 
Others are mentioned in the body of the manual. 
See also Appendix I (Parsing). 


Numbers: In formal Logo, all words used as direct 
inputs, including numbers, must be quoted. In re- 
laxed Logo, numbers are self-quoting: the quote 
marks are unnecessary. For example, 


SUM 3 4 


A number is a word made up of digits; it may also 
contain a minus sign, a period, and an E or an N. 
See Chapter 4 (Arithmetic Operations). 


Infix procedures: Formal Logo uses only. pre- 

fix procedures. Thus addition is expressed by 

SUM "3 “4. In relaxed Logo you can also use the 

infix form 3 + 4. Similarly with multiplication, 

subtraction, and division. See Chapter. 4 (Arith- 
_ metic Operations). 


vill 





Variable number of inputs: In formal Logo, every 
procedure has a fixed number of inputs. In re- 
laxed Logo, several procedures can have variable 

‘numbers of inputs. When you use other than the 
expected number of inputs you must enclose the 
expression in parentheses: 


(SUM 345 6 7 8) 


Such procedures do not require parentheses when 
you use fewer than the standard number of in- 
puts, provided that nothing else follows the ex- 
pression on the same line. | 


Dots: A ‘familiar feature of relaxed Logo is the 
use of dots (:). In formal Logo, :X is written as 
THING "X. 


Parentheses for grouping: Logo has parentheses 
_ so that you can explicitly tell Logo how to Group 
things. For example, consider 


25 + 20 / 5 
Should the addition be done first, producing 9, or 


should the division be done first, producing 29? 


Relaxed Logo follows the traditional mathemati- 
cal hierarchy, in which multiplication and division 
are done before addition and subtraction; thus 
this operation first divides 20 by 5, and produces 
29. To group the numbers so that addition is done 
first, parentheses must be used: 


(25 + 20) / 5 


Commands and operations: In formal Logo, a 
_ given procedure is either a command or an opera- 
tion, not both. In relaxed Logo, a procedure can 


ix 


Fe ok a Ce uc in STN a a ala SiR Si ac i Sa | 
be sometimes a command and sometimes an oper- 
ation. RUN and IF are examples of this. See‘Chap- 
ter 7 (Flow of Control). 


The command To: In formal Logo, you define a 
procedure with the command DEFINE; it takes 
two inputs, a word (the procedure name) and a list 
(the definition). All the usual rules about quotes 
and brackets apply without exception: 
DEFINE "SQUARE [[ ] [REPEAT 4 [FD 100 RT 90]]] 


In relaxed Logo, you can define a procedure with 
_ EDIT and To. The command To is unusual in two 
_ ways. It automatically quotes its inputs, and it al- 

lows you to type i in the lines of the procedure 1 in- 

teractively: 7 

?7TO SQUARE 


>REPEAT 4 CFD 108 RT 90] 
>END | 


A Further Note on Operations 
In talking about formal Logo we have been using 
the word produce: a procedure produces an object . 
(called the output of the procedure). In traditional 
Logo terminology we say that the procedure out- 
puts an object. 


Logo Objects 
There are two types of Logo things (or objects): 
words and lists. 


Aword, such as TELEVISION or 617, is made up of 
‘characters (letters, digits, punctuation). A num- 
_ ber is a kind of word. | 


A list, such as [RABBITS TELEVISION 7 [EARS 
FEET], is made up of Logo objects, each of which 
can be either a word or a list. See Chapter 2 
(Words and Lists). 


Xx 





How You Might Think about Quotes 

The role of quotes is best understood through the 
following example: : 

2PRINT "HEADING - 

HEADING | 


-2?PRINT HEADING 
188. 


‘In the first case the quotation mark ( ) indicates — 
that the word HEADING itself is the input to 
PRINT. | 3 


In the bscdid case the input is not quoted. It i is 
therefore interpreted as a Procedure, which pro- 
vides the input to PRINT. 


| How You Might Think abarik MAKE 
The effect of the command . 


MAKE. "BIRD "PIGEON: 


can be thought of as ‘follpywas A container is given 
a name: BIRD. The word P PIGEON is pats into the 
container. : 


Once this is done the operation THING has the fol- 
: lowing effect: . 
‘THING "BIRD = 
_- produces eiceens 
Dots are. similar: to THING; for example, 


-:BIRD.. ae 
© produces PIGEON | 


. We can talk about the same situation in several 
aie OO 

BIRD is a variable; PIGEON is its value. 

BIRD is aname of PIGEON. ~ 

-BIRD‘is bound to PIGEON. ~~ 

PIGEON is the thing of BIRD. 


- You can change what it is in the container; if you 
type 
MAKE "BIRD "SPARROW 


then the container BIRD contains the word 
SPARROW instead of.the word PIGEON. 


How to Think about Procedures You Define and 
their Inputs | 

Procedures you define can have inputs. When you 
define a procedure, its title line specifies how 
many inputs it has and a name for each one. The 
inputs are put. into the containers designated on 
the title line of the procedure definition in the or- 
der in which they occur. For example, the follow- 
ing procedure makes the turtle draw various 
polygons, depending upon what inputs are used. 

TO POLY :STEP :ANGLE | 

FORWARD :STEP 

RIGHT :ANGLE 


POLY :STEP :ANGLE 
END 


‘Whatever inputs you choose—for example, 50 and 
90—are put into the specified containers. The first 
input is always put in the container STEP; the sec- 
ond input is always put in the container ANGLE. 
The first input variable, STEP, controls the size of 
the figure. The second input variable, ANGLE, con- 
trols the shape of the figure. POLY 50 90 makes the 
turtle draw a square; POLY 50 144 makes the turtle 
draw a pentagram; POLY 50 120 makes the turtle 
draw a triangle. 


If the input containers already have objects in 
them when the procedure is run, the objects are 
removed but are saved. They are restored when 


ree ET SE SESS STO 
| - the procedure is done. In other words, the proce- 
dure borrows the container and leaves it in its 
original condition when done with it.:-This is what 
is meant by saying that a variable is local to the 
procedure within which it occurs. 


For example: 


2MAKE "SOUND ''CRASH 
?PRINT :SOUND 
CRASH 


Now we run a procedure called AN IMAL; its put , 
variable is SOUND. 


TO. ANIMAL :SOUND 
IF :SOUND = "MEOW [PR "CAT STOP] 
IF :SOUND = "WOOF [CPR "DOG STOP] 
PR CI DON'T KNOW) 

END 


If we type ANIMAL "WOOF, then WOOF is put into. 
the SOUND container for the duration of the | 
ANIMAL procedure. Afterwards, CRASH is re- 

' stored: | 


?MAKE ‘"'SOUND "CRASH 
?PRINT :sSOUND 


CRASH | 
2ANIMAL "WOOF 
DOG 

 2PRINT :SOUND 
CRASH 


Another Way to Talk about Procedures 

When you use a procedure, we also say that you 
call that procedure. Procedures you define call 
other procedures. For example, the POLY proce 
dure above calls other procedures (FORWARD and 
RIGHT). 


~ pozy also calls itself. This is called a recursive call. 





Review of Special Characters 

Quotation marks, or quotes, ”, used immediately 

before a word, indicate that it is being used as a 

_ word, not as the name of a procedure or the value 
of a variable... 


A colon, known as dots, :, used immediately be- 
fore a word, indicates that the word is to be taken 
as the name of a variable and epronacc the value 
of that variable. 


Brackets, [| |, are used to surround a list. The left 
bracket ({) is typed with SHIFT-N, the right 
bracket (j) with SHIFT-M. 


Parentheses, (_),are necessary to group things in 
ways that Logo ordinarily would not, and to vary 
the number of inputs for certain procedures. Both 
of these uses are described above in this Over- 
view. 


A backslash, <, tells Logo to interpret the charac- 
ter that follows it literally as a character, rather 
than keeping some special meaning it might have. 
For insta:ice, suppose you wanted to use 3[A]B as a 
single word. You need to type 3\ {A \]B in order to 
avoid Logo’s usual interpretation of the brackets 
as the envelope around a list. You have to back- 
slash [,(,],), +, —.*,/, =, <, >, and \ itself. 


Since the Apple keyboard does not contain a 
~ backslash, you type CTRL-Q. You can remember 
- CTRL-Q by thinking of it as quoting the character 
that follows. - 


M1V 


Introduction | 


Starting up Logo on Your Apple 





You need a 48K Apple II computer system, in- 


cluding a language card.(16K RAM card) in slot 0, 


a 16-sector disk controller card in slot 6, at least 
one disk drive connected to the controller card, 


_and acolor or black-and-white TV. Setting up the 
Apple hardware is discussed in the Apple II 


manuals. 


Your Logo kit includes a Logo diskette, which you 
put into the disk drive before you can use Logo. 
To put in the diskette, open the door of the disk 
drive by lifting it outwards; a hinge is on top. You 
should see a slot for the diskette. Hold the disk- 


_ ette so that the label is face up and slide it into the 


slot of the disk drive, then close the door. The disk 
drive is now ready to load information from the 
diskette into the Apple. 


Turn the TV on. Then, to start Logo, turn on the 


_ Apple power switch, which is located on the back 


side of the computer. You can reach it from your 


left. 
‘The disk drive light will go on. After.a moment, 


the light will go off and if all is going well you 
should soon see a message on the screen saying 


PRESS THE RETURN KEY TO BEGIN 


IF YOU HAVE YOUR OWN FILE DISKETTE, 
INSERT IT NOW, THEN PRESS RETURN 


You do not ebay a file diskette to use Logo. If you 
do not have one and you want to continue without 


one, just press the RETURN key and go on. If 
_ you do not have a file diskette and want one now, 


see the section below titled ‘“How to format a 
diskette”’. | 





After you press the RETURN key, Logo loads the 
file named STARTUP, if there is one*. You will then 
see a message on the screen saying 


WELCOME TO LOGO 


Below the message you will see a? (question 
mark) followed by a flashing §f (rectangle). 


The question mark is the prompt symbol, indica- 
_ ting that Logo is waiting for you to type some 

_ thing. Whenever you are typing in response to the 
_ prompt symbol, we say that you are at toplevel. 


The flashing rectangle is the cursor. It appears 

~ when Logo wants you to type something and 

_ shows where the next character you type will ap- 
pear | - 


Special Keys on the — 

The - Key 
The <- or DELETE key causes Logo to erase the 
character before the cursor. Your Logo kit should 


| have a DELETE sticker for you to put on the front 
_ Of this key. 


The RETURN Key 
The RETURN key tells Logo: ‘Now do what I just 
typed.”’ 


The SHIFT Key | 

The SHIFT key can change character keys. For ex- 

ample, if while holding the SHIFT key down you 

press N, Logo prints [on the screen. We represent 
this two-key combination as SHIFT-N. SHIFT-M is 

}. Your Logo kit should have stickers to mark 


*If you press CTRL-G instead of ReTuRN, Logo does not load the 
STARTUP file. 


XVI1L1 


, SHIFT-M and SHIFT-N as ] ana fon the Gite of the 
M and.N keys. 


The Space Bar 
The space bar prints an invisible character called 
_ space. Logo uses spaces as word separators. 


The CTRL Key 
The CTRL key can change character keys into ac- 
tion keys. You use it like the sHiFT key: press it 
alone and nothing happens; hold it down and 
press a certain character key, and something hap- 
pens. For example, if you type CTRL-G, Logo stops 
whatever it is doing. 


How to Format a Diskette. 

To save your procedures and other Logo things 
you need a formatted Apple diskette on which 
you can write. If you do not have one you can 
make one. 


Using the Apple DOS 3.3 SYSTEM MASTER 
you can format a diskette. Put the diskette in the 
disk drive and start it up by repowering your 
Apple. Then when the disk drive light goes off, re- 
move the SYSTEM MASTER diskette and re 
nlace it with the blank diskette you want to 
fc rmat. 


Now type 
-INIT HELLO 


When the disk drive light goes off, the diskette 
will be formatted. You can test this out by typing 


CATALOG 


The file name HELLO should be displayed. 





Now put the Logo diskette in the disk drive. Re- 
power (reboot) the Apple. When Logo prints 


PRESS THE RETURN KEY TO BEGIN 


IF YOU HAVE YOUR OWN FILE DISKETTE, 
INSERT IT NOW, THEN PRESS RETURN 


press the RETURN key. Do not take the Logo disk- 
ette out of the drive yet. Let Logo load in the 
STARTUP file from the diskette. 

After Logo prints 

WELCOME TO LOGO 

remove the Logo diskette and insert your file 
diskette. Now type | 

S‘’‘VE “STARTUP "AIDS 


Now you have your own file diskette with its 
STARTUP file. | 
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Turtle Graphics 
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BACK 
BK 


BACKGROUND 
BG 


CLEAN 


Turtle Graphics 





When you use any primitive which refers to 


the turtle, Logo shows you the turtle graphics 


screen.* 


In addition to those described in this chapter, the 
following primitives are related to turtle graphics: 
FULLSCREEN, SPLITSCREEN, TEXTSCREEN, 
which are described in Chapter 10. 


BACK distance (command) short form: BK 


Moves the turtle distance steps back. Its heading 


does not change. 


im 


BACK 70 


BACKGROUND (operation) short form: BG 
Outputs a number representing the color of the 
background: 

0 black 

1 white 

2 green 

3 violet 

4 orange 

5 blue 

6 black (for black-and-white TV) 


CLEAN command) 
Erases the graphics screen but doesn’ t affect the — 
turtle. 





*If you use the Logo Editor or any file command, the screen 
is erased. ; 


CLEARSCREEN 
CS 


- FENCE 





- CLEARSCREEN (command) short form: cs 


Erases the graphics screen, puts the turtle at po- 
sition [0 0] (which is the center of the screen and is 
called the home position), and sets the turtle’s 
heading to 0 (north). 


CLEARSCREEN 





DOT position (command) 

Puts a dot of the current pen color at the specified 
position, without moving the turtle. It does not 
draw a line, even if the pen is down. 


Example: | 
DOT [100 0] pute a dot halfway down the right edge 


of the screen. 
DOT [190 6} 


FENCE (command) 

Fences in the turtle within the edges of the screen. 
If an attempt is made to move the turtle beyond 
the edges of the screen it will not move, and “gt 





error message ‘“‘TURTLE OUT OF BOUNDS’: 


typed. An error message is also typed if you - 
FENCE when the turtle is already off the screen. 


See also WINDOW and WRAP. 
Example: 


FENCE 


CS 


RT 5 : 
FD 500 


4 


FORWARD 
FD 


- HEADING 





- gives the error message ‘‘TURTLE OUT OF 


BOUNDS” 


FORWARD distance (command) short form: FD 
Moves the turtle forward distance steps in the di- 
rection in which it is heading. 


Examples: 


TO SQUARE :SIDE 
REPEAT 4 CFORWARD : SIDE RIGHT 99) 





FORWARD 70 


END 





’ SQUARE 30 


HEADING (operation) 

Outputs the turtle’s heading, a decimal number 
greater than or equal to 0 and less than 360. Logo 
follows the compass system where north is a 


- heading of @ degrees, east 90, south 180, and west 


270. When you start up Logo, the turtle has a 
heading of 0 (straight up). : 


_ Example: 


IF HEADING = 180[PR [YOU ARE HEADED DUE 
SOUTH] 


5 


HIDETURTLE 


HT 


HOME 


LT 





HIDETURTLE (command) short form: HT 
Makes the turtle invisible. (The turtle draws 
faster when it is hidden.) 


- HIDETURTLE 


HOME (command) 

Moves the turtle to the cate of the screen and 
sets its heading to @. This command is equivalent 
to SETPOS [0 0] SETHEADING 0. | 


HOME 
LEFT degrees (command) short form: LT 


Turns the turtle left (counterclockwise) the speci- 
fied number of CeRreee It is an error if degrees > 


—4.19E6. 


Examples: 


_ LEFT 45 (turns the turtle 45 degrees left) 


LEFT —45 (turns the turtle 45 degrees right) 


LIP IE IG 


- LEFT 45 — LEFT —45 


PENCOLOR 


The procedure POLY draws figures like those illus- 
trated: 


TO POLY :SIDE :ANGLE 
FORWARD :SIDE 

LEFT :ANGLE 

POLY :SIDE :ANGLE 
END — 


POLY 70 60 POLY 3040 POLY 8@ 144 


PEN ibe 
Outputs a two-word list describing the current 


state of the turtle’s pen. The first word is 
PENDOWN, PENERASE, PENUP, or PENREVERSE. 
The second word is the number representing the 
current pen color. When the turtle first starts up, 

PEN outputs [PENDOWN 1]. | 


_ The form of the output is suitable for input to. 


SETPEN. See example in entry for SETPEN. 


_PENCOLOR | (operation) short form: PC 
Outputs a number representing the current t color 


of the pen: 
®@ black 
1 white 
2 green 
3 violet 
4 orange 
5 blue 


‘When the turtle first starts up, PENCOLOR is 1. 


7 


PENDOWN 
PD 


PENERASE 
PE 


PX 





: PENDOWN (command) - short form: PD 


Puts the turtle’s pen down: when the turtle 
moves, it draws lines in the current pen color. The 
turtle begins with its pen down. 





PENDOWN FD 100 


' PENERASE fcounmatial short form: PE 


Puts the turtle’s eraser down: when the turtle 


‘moves, it erases lines it passes over. To lift the 
eraser, run either PENDOWN or PE NUP. 





PENERASE FD 100 


_ PENREVERSE ieiinulis short form: Px 


Puts the “reversing pen” down: when the turtle 
moves, it tries to interchange the pen color and 


. background color, drawing where there aren t 


lines and erasing where there are. The exact effect 
of this reversal is complex; what it looks like on 
the screen depends on pen color, background 


color, and whether lines are horizontal or vertical. 


The best results ate on a black eee eere 





PENREVERSE FD 160 


PENUP 
PU: 





| PENUP (command) short form: PU 


Lifts the pen up: when the turtle moves, it does 
not draw lines. _ 





PENUP FD 100 


Pos (operation) | 
Outputs the coordinates of the current position of 
the turtle in the form of a list [x y]. When you start 
up Logo, the turtle is at [0 0], the center of the tur- 
tle field. 





Example: 


TO GOODVEE 
MAKE ''SAVEPOS POS 


VEE 


PENUP 


SETPOS. :SAVEPOS 
‘END 


TO VEE - 
RT 135 FD 20 
LT 98 FD 20 
LT 45 

END 





GOODVEE | 


GOODVEE calls the procedure VEE and:then re- 
stores the turtle’s position to wherever it was be- 
fore GOODVEE was called. 
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RIGHT 
RT 





RIGHT degrees (command) short form: RT © 
Turns the turtle right (clockwise) the specified — 
number of degrees. It is an error if degrees > 
4.196. | 


Examples: 


RIGHT 45 (turns the turtle 45 daeices right) 


RIGHT —45 (turns the turtle 45 degrees left) 





LIE LIE 


RIGHT 45 RIGHT —45 


TO SPI. sSIDE sANGLE :INC 
FD :SIDE-RT :ANGLE — 
SPI :SIDE+: INC ANGLE 2 INC 


END | 





SPI 5 1443 _ 


SCRUNCH (operation) | 

Outputs the aspect ratio, a decimal number which 
is t'.e ratio of the size of a vertical turtle step to 
the size of a horizental one. The aspect ratio is .8 
when Logo starts up. See also SETSCRUNCH. 


| SETBG colornumber (command) 


Sets the background color to the color repre- 
sented by colornumber, where pore aura er is one 
of the following numbers: | | 
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®@ black 

1 white 

2 green 

3 violet 

4 orange 

5 blue — 

6 black (for black-and-white TV) | 

‘Note that background colors @ and 6 are both 
black; 6 is the recommended background for a 
black-and-white screen, since the pen draws thin- 
ner lines with a 6 background. See example in en- 
try for BACKGROUND. 


There are certain unavoidable limitations when 
you draw with a colored pen on colored back- 
ground. Black and white pens draw successfully 
on any background; any colored pen draws suc- 
cessfully on a black or white background. If you | 
try to draw a green or violet line on an orange or 
blue background, or an orange or blue line on a 
- green or violet background, the following will 
happen: | 

orange or blue background: 

green becomes orange 

violet becomes blue | 

green or violet. background: 

orange becomes green 

_blue becomes violet 


If you change the background after you’ve al- 
_ready drawn with a colored pen, the results may 
be blotchy. : 
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SETHEADING 





SETHEADING degrees (command) 

short form: SETH 

Turns the turtle so that it is heading i in the direc- 
tion degrees, which can be any decimal number 


less than 4.19E6. Positive numbers are clockwise 


from north, negative numbers are counterclock- 
wise from north. Note that RIGHT and LEFT do 
relative motion, but SETHEADING does absolute 
motion. 

Examples: 

SETHEADING 45 (heads the turtle northeast) 
SETHEADING —45 (heads the turtle noe wee 


aia SE MES DING 


SETPC colornumber (command) , 


Sets the color of the pen to colornumber, where 


colornumber is one of the following numbers: 
® black 
1 white 
2 green 
3 violet 
4 orange 
5 blue 


If the pen color does not look right on your screen, | 


try adjusting your TV’s tint control. However, 
when two lines of different colors are horizontally 
close to each other, one of them may be the wrong 
color, no matter what you do. 


For information on the interaction between pen_ 
and background colors, see entry for SETBG. 
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_ SETPEN 





SETPEN pair (command) 


Sets the pen state to the two-word list pair. The 
form of the input is the same as that of the output 
from PEN (see PEN). The first word must be 


. PENDOWN, PENERASE, PENUP, or PENREVERSE. 


The second word is the number representing the 
current pen color. 


Examples: 


SETPEN [PENUP 3] is equivalent to 
PENUP 
SETPC 3 


In the following program, the procedure DESIGN 


draws three sides of a square in three different 
colors; it happens to leave the pen up, with the pen 
color blue. The procedure RESTORE calls a proce — 


- dure and ensures that the pen state is restored to 
whatever it was previously: 


TO RESTORE :PROCEDURE 
MAKE "SAVEPEN PEN 


RUN SE :PROCEDURE 


SETPEN :SAVEPEN 


END. 7 


TO DESIGN 


PIECE 2 
PIECE 3 
PIECE 5 
PENUP FD 58 
END 


TO PIECE :COLOR 
SETPC :COLOR 


FD 58 RT 99 


END 
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SETSCRUNCH 


SETPOS position (command) _— 
Moves the turtle to ponnon (see POS). 


. Example: | 


SETPOS [100 0] moves the turtle toa point halfway 


down the right edge of the screen. 





 SETPOS [169 @). 


SETSCRUNCH n | (command) 
Sets the aspect ratio (the ratio of the size of a ver- - 


tical turtle step to the size of a horizontal one) to n. 
‘YCOR is changed accordingly. 


Example: | 
SETSCRUNCH 5 makes each vertical turtle step 
half the length of a hotizontal one. 


_SETSCRUNCH has two uses. First, if ‘‘squares”’ 


turn out to be rectangles and “circles” turn out to 


beellipses on your screen, you can correct this (for _ 


most screens. an aspect ratio of .8 is correct). Sec- 
ond, if you want turtle drawings te come out 
squashed or extended, you can use SETSCRUNCH; _ 
for example, you can use a circle procedure to 

draw an ellipse: | 
TO. CIRCLE sRADIUS 


REPEAT ee CFO : RADIUS « 3.14159 J 30! | 
R¥ 6). 


END 
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SETX 


SITY 


SHO" 'NP- 


TV] 





TO ELLIPSE :HORIZ :VERT 
SETSCRUNCH .8 * :VERT / :HORIZ CIRC! 
LE :HORIZ 


=) Le)Le 





. CIRCLE 25 ELLIPSE 25 40 ELLIPSE 40 25 


SETX x (command) 
Moves the turtle horizontally to a point with | 
x-coordinate x (y-coordinate is unchanged). | 


Example: 
SETX —100 moves the turtle horizontally over to 


the left edge of the screen. 


EIJI 


SETX —100 SETX 2 * XCOR 





- SETY y (command) 
‘Moves the turtle vertically to a point with 
7 -y-coordinate y (x-coordinate is unchanged). 


_ Example: 


SETY —100 moves the turtle vertically down to the 


lower edge of the screen. 


SETY —100 - ’ SETY 2* YCOR 





SHOWNP _ (operation) 


- Outputs TRUE if the turtle is shown, FALSE other- 


wise. 


SHOWTURTLE 


TOWARDS 


WINDOW | 





SHOWTURTLE (command) short form: sT 
Makes the turtle visible. See also HIDETURTLE. 


i 


SHOWTURTLE 


TOWARDS position (operation) 
Outputs a heading that would make ihe turtle 
face position. 


Example: | 
SETHEADING TOWARDS [2¢ 10] heads the turtle in 
the direction of the position (20 10). 


SETHEADING TOWARDS [20 10] 


WINDOW (command) 

Make the turtle field unbounded; what you see is 
a portion of the turtle field as if looking through a 
small window: around the center of the screen. 
When the turtle moves beyond the visible bounds 
of the screen it continues to move but can’t be 
seen. The screen is 240 turtle steps high (only if 
the scrunch factor is .8) and 280 steps wide; the 
entire turtle field is 40960 steps high* and 32768 
steps wide. See also FENCE and WRAP. — 


Example: 


?WINDOW 

?CS RT 5 

27FD 500. 

?PRINT POS . 
43.5779 498.097 


*Depending on the value of scRUNCH 
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ce ea 


~ WRAP 


XCOR 


WRAP (command) 

Makes the turtle field wrap around the edges of 
the screen: if the turtle moves beyond one edge of 
the screen it continues from the opposite edge. 
The turtle never leaves the visible bounds of the 
screen; when it tries to, it ‘wraps around” to the 
other side. See also FENCE and WINDOW. 


Example: 


?WRAP 

?CS RT 5 

27FD 580 

?PRINT POS 
43.5779 18.0973 


XCOR (operation) 
Outputs the x-coordinate of the cyrrent position 
of the turtle. 


Examples: 
?PRINT XCOR 
0 


PRINT XCOR 
6 


SETX 2* XCOR moves the turtle horizontally to a 
gag twice as far from the y-axis as it used to 


T= 


SETX 2* XCOR 
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YCOR 





YCOR (operation) | 

Outputs the y-coordinate of the current position 
of the turtle. 

Examples: — 


?PRINT YCOR 
108 : 





PRINT YCOR 
160 


SETY 2* YCOR moves the turtle vertically to a po- 


sition twice as far from the x-axis as it used to be. 


SETY 2 * YCOR 
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Chapter 2 





Words and Lists 


Chapter 2 Words and Lists 





There are two types of objects in Logo: words and 
lists. There are primitives to put them together, 
take them apart, and examine them. © 


_ Aword is made up of characters. 


HELLO 
x 
314 
3.14 
R2D2_ 
_ PIGLATIN 
PIG.LATIN 
PIG-LATIN (typed as PIG \-LATIN) 
HEN3RY 
WHO? 
INOW! - 
These are all words. Each character is an element 
of the word. The word HEN3RY contains six eie- 
ments*: | 


H E N 3 R YY 


A word is usually delimited by spaces. That is, 
there is a space before the word (unless it is pre- 
ceded by : or ”) and a space after the word; they set 
the word off from the rest of the line. There are a 
few other delimiting characters: — 


[l= < > +-—F/ 


To treat any of these characters as a normal al- 
phabetic character, put a backslash ‘‘\”’ (typed 
with CTRL-Q) before it. 


Example: 
PR "PIG \-LATIN 
PIG-LATIN 


See Appendix I (Parsing) for more detail on this 
subject. 


*Lehrer, Thomas. ‘‘An Evening Wasted With Tom Lehrer’ (Reprise 
Records, 1960). The 3 is silent. 21 





ASCII 


Note that ” is not a word delimiter. 


A list is made up of Logo objects, each of which is 
a word or another list. We indicate that something 
is a list by enclosing it in square brackets. The fol- 
lowing are all lists: 


[HELLO THERE, OLD CHAP] 

[xX Y Z] 

[HELLO] 

[[HOUSE MAISON] [WINDOW FENETRE] [DOG © 
CHIEN] 

[HAL [C3PO R2D2] [QRZ] [ROBBIE SHAKEY]] 

(1 (1 2] (17.[17 20) | 

[] 


The list [HELLO THERE, OLD CHAP] contains four 
elements: 


HELLO 

THERE, 

OLD 

CHAP 

Note that the list [1[1 2] {17[17 2]]] contains only 
three elements, not six; the second and third ele- 
ments are themselves lists: | 


Element 1: 1 

Element 2: [1 2] 

Element 3: (17 [17 2]] 

The list [ ], a list with no elements, is the empty 
list. There also exists an empty word, which is a 
word with no elements. You type in the empty 


word by typing "'. See entry for EMPTYP for exam- 


ples of both the empty list and the empty word. 


ASCII character (operation) 


Outputs the Ascii code for character. (Appendix 
K is a chart of all ascii codes.) If the input word 
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BUTFIRST — 


BF 





contains more than one character, ASCII uses only — 


_its first character. See also CHAR. 


Examples: 
ASCII "B 

outputs 66 
The procedure SECRETCODE makes’a new word 
by using the Caesar cipher (adding 3 to each let- 
ter): fe | _ 


TO SECRETCODE :WD . 

IF EMPTYP :WD COUTPUT "') 

OUTPUT. WORD SECRETCODELET FIRST WO ! 
SECRETCODE BF :WD 

END. | 


TO SECRETCODELET >LET 

MAKE "LETNUM (ASCII =LET) + 3 
IF’ :LETNUM > ASCII ."Z [MAKE '"LETNUM ! 

gLETNUM - 26] | | 
OUTPUT CHAR > LETNUM 


END 

?PR SECRETCODE "CAT 
FOW 

2PR SECRETCODE “CRAYON 
FUDBRQ 7 | 


BUTFIRST object (operation) short form: BF 
Outputs all but the first element of object. 
BUTFIRST of the empty word or the empty list is 
an error. | 


Examples: 


BUTFIRST [LAURENCE J. DAVIDSOY 
outputs [J. DAVIDSON] _ 


BUTFIRST "DOGS 
outputs OGS 


BUTFIRST [DOGS] 
outputs | ] (the empty ey 


BUTFIRST [THE DOGS] 
outputs [DOGS] 


BUTLAST 
BL 


BUTFIRST [[THE A AN] [DOG CAT MOUSE] [BARKS 
MEOWS] | 
outputs [[DOG CAT MOUSE] [BARKS MEOWS]] 


BUTFIRST ” 
is an error. 


BUTFIRST [ ] 
is also an error. 


TO TRIANGLE :OBJECT 

IF EMPTYP :OBJECT [STOP] 
PR :OBJECT | 
TRIANGLE BUTFIRST :OBJEC 
END 


?TRIANGLE "STROLL 
STROLL 

TROLL 

ROLL 

OLL 

LL 
L 


27TRIANGLE CKANGAROOS. .|UMP GRACEFULLY] 
KANGAROOS JUMP GRACEFULLY 


JUMP GRACEFULLY 


GRACEFULLY 


BUTLAST object (operation) short for — BL 
Outputs all but the last elemert ui object. 
Examples: 
BUTLAST [ROBERT J. LURTSEMA] 

outputs [ROBERT J.] 


BUTLAST "FLOWER 
outputs FLOWE 


BUTLAST [FLOWER] 
outputs | ] 

BUTLAST [[THE A AN][BIRD BEE FLOWER] 
outputs [[THE A AN]] 

BUTLAST ” 
is an error. 
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CHAR 





BUTLAST [ ] 
is also an error. 


The input to the following procedure should be an 
adjective ending in y: 

TO COMMENT :WORD 

PR SE [YOU ARE] :WORD 


PR SE CI AM] WORD BUTLAST :WORD "IER 
END 


?COMMENT ‘'FUNNY 
YOU ARE FUNNY 
I AM FUNNIER 


CHAR 7 (operation) 

Outputs the character whose ASCII code is n. (Ap- 
pendix K is a chart of all ASci1 codes.) It is an er- 
ror if n is not the ASCII code for any character. 


Characters can be normal (white characters on 
black background), inverse video (black charac- 
ters on white background), or flashing (rapidly al- 
ternating between normal and inverse). The ASCII 
codes are organized as follows: 


@ 31 crrRui characters: 

32- 47 punctuation 

48- 57 digits 

58- 63 punctuation 

64- 90 upper-case letters 

91- 96 punctuation | 

97-122 lower-case letters (upper-case on the 

Apple) _ 

123-127 punctuation 
128-154 inverse-video upper-case letters 
155-191 inverse-video digits and punctuation 
192-218 flashing upper-case letters 
219-255 flashing digits and punctuation 
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COUNT 





To change a normal character to inverse video, 
use the expression 


CHAR 128 + REMAINDER ASCII :CHARACTE! 
R 64 | | 


To change a normal character to flashing, use the 
expression 


CHAR 192 + REMAINDER ASCII >CHARACTE! 
R 64 — 


Examples: 
INVERSE and FLASH display a word in either in- 
verse video or flashing: | 


TO INVERSE :WORD 
CONVERT :WORD 128. 
END | 


TO FLASH :WORD 
CONVERT :WORD 192 
END | 


TO CONVERT :WORD :NUM 


IF EMPTYP :WORD [STOP] 


' TYPE CHAR :NUM + REMAINDER ASCII FIR! 


ST :WORD 64 
CONVERT BF :WORD :NUM 
END : 


2INVERSE "YOGURT 
YOGURT? 


COUNT list (operation) — 
Outputs the number of elements in lis?. 


Examples: 


COUNT [A QUICK BROWN FOX] 
outputs 4 


COUNT [A [QUICK BROWN] FOX] 
outputs 3. 


EMPTYP 





?MAKE "'CLASS [JOSE ANGELA WINIFRED L! 
ING NORBERT BRIAN MARIA] 
?PR COUNT :CLASS 


of 


The following procedure prints a random element 
of a list: 


TO RANPICK :LIST 

PR ITEM (1 + BaMven COUNT :LIST) :LI! 
ST 

END 


?RANPICK :CLASS (see list CLASS above) 
BRIAN | 


_EMPTYP object (operation) 
Outputs TRUE if object is the empty word or the 


empty list; otherwise FALSE. 


Examples: 


EMPTYP 3 
outputs FALSE 


EMPTYP BUTFIRST "UNICORN 
outputs FALSE 


EMPTYP BUTLAST "U 
outputs TRUE 


EMPTYP BUTFIRST [UNICORN] 
outputs TRUE 


TO TALK sANIMALS :SOUNDS | 

IF OR EMPTYP :SOUNDS EMPTYP :ANIMALS ! 
CPR CTHAT’S- ALL. THERE IS!] STOP] 

PR SE FIRST :ANIMALS FIRST :SOUNDS 
TALK BF :ANIMALS BF :SOUNDS 

END ~ | : 


?TALK [DOGS BIRDS PIGS] [BARK CHIRP 0! 
INK] 

DOGS BARK 

BIRDS CHIRP 

PIGS OINK 

THAT'S ALL THERE IS! 
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EQUALP 


TO REVPRINT : THING | 

IF EMPTYP : THING CPR CJ STOP) 

TYPE LAST :THING 

IF LISTP : THING CTYPE CHAR 32] (space) 
REVPRINT BL :THING 


END 

?7REVPRINT ''ELEPHANT © 
TNARPELE 

?REVPRINT ''PUMPERNICKEL 
LEKCINREPMUP 


?REVPRINT CALISON LOVES MATTHEW) | 
MATTHEW LOVESe ALISON 

27REVPRINT "OTTO 

OTTO 


EQUALP object! object2 (operation) 
Outputs TRUE if objectl and object2 are equal 


numbers, identical words, or identical lists; other- 


wise outputs FALSE. Equivalent to = (see list of 
infix-form operations at end of Chapter 4). 


Examples: 


EQUALP "RED FIRST [RED YELLOW] 
outputs TRUE 


EQUALP 100 50 * 2 
outputs TRUE 


EQUALP [THE A AN] [THE A] 
outputs FALSE 


EQUALP ”[] 
outputs FALSE (the empty word and the acapiy 
list are not identical) 


‘The following operation tells whether its first in- 


put (a character) is an element of its second input 
(a word). 
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he SE 5 ASSES SI EP a SI ID BE SRS ER RETEST 


FIRST | 


TO INP :CHAR :WORD 


IF EMPTYP :WORD [OUTPUT ''FALSE] 

IF EQUALP :CHAR FIRST :WORD COUTPUT ''! 
TRUE] | | | 
OUTPUT INP :CHAR BUTFIRST. :WORD 

END | 


27PR INP "A "TEACUP 


TRUE 

2?PR INP "TEA "TEACUP 
FALSE 

2PR INP '"I SAUCER 
FALSE 


FIRST object (operation) 

Outputs the first element of object. FIRST of the 
empty word or the empty list is an error. Note 
that FIRST of a word is a single character, FIRST cf 


~~ alist can be a word or a list. 


Examples: 


FIRST [HOUSE MOUSE LOUSE] 


outputs HOUSE ~ 


FIRST "HOUSE 
outputs H 


FIRST [HOUSE] | 
outputs HOUSE 


FIRST [[THE A AN] [UNICORN RHINO] (SWiMS 
FLIES GROWLS RUNS]] 
Outputs [THE A AN] 


FIRST ” 
is an error. 


FIRST [ ]- 
is also an error. 


TO PRINTDOWN : INPUT. 

IF EMPTYP : INPUT [STOP] 
PR FIRST <INPUT 
PRINTDOWN BF : INPUT 
END 
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FPUT, 


ITEM 


_2PRINTDOWN "MOUSE 


>?PRINTDOWN CA STRAWBERRY SUNDAE] 


y] 


a 
=. 
A 
Pe 2. 
< 


GhrPpPrvnamMmMnco =z. 


Cf -+ 
CF te 
> 


FPUT object list (operation) 
(Stands for ‘‘First PUT’’.) Outputs a new list 
formed by putting object at the beginning of list. 


See entry under List for chart comparing FPUT 


with other primitives that combine words and _ 

lists. 

Examples: 

FPUT "HAMSTER [DOG CAT] 
outputs [HAMSTER DOG CAT] 


FPUT [THE A AN] [CUP GLASS] 
outputs [[THE A AN]CUP GLASS] 


FPUT "A [] 
outputs [A] 


ITEM 7 list (operation) — | 
Outputs the nth element of list. It is an error if n is 


greater than the length of list or if list is the 


empty list. 


- Examples: 


2MAKE "PETS [DOG CAT HAMSTER CANARY] 
?PR ITEM 3 :PETS 

HAMSTER 

7PR ITEM 1 :PETS 

00G | 


LAST object. ipesiaay. | 
Outputs the last element of object. LAST of cies 7 


empty word or the empty list is an error. 
. 30 


(i Arma SR ITE CT EOE LN AOS ANDERE EELS, 


LIST 


Examples: 
LAST [ALISON LARRY PHIL] 
outputs PHIL | 


LAST "VANILLA 
outputs A 

LAST [VANILLA] 
outputs VANILLA 


LAST [ITHE A] FLAVOR IS [VANILLA CHOCOLATE 
STRAWBERRY] 
outputs [VANILLA CHOCOLATE STRAWBERRY] | 


LAST ae 
is an error. 


LAST [] | 
is also an error. 


TO PRINTBACK : INPUT. 


IF EMPTYP : INPUT [STOP) 


PR LAST 3INPUT : 
PRINTBACK BL : INPUT 
END 


7PRINTBACK "GANDALF 


or2zorrn 


LIST objectl object2 (operation) 


_ (LIST object1 object2 object . . .) 


Outputs a list whose elements are obdjectl, ob- 


ject2, ete. . 
_ Examples: 


LIST "ROSE [TULIP CHRYSANTHEMUM] 
outputs [ROSE [TULIP CHRYSANTHEMUM] 


(LIST "ROSE "TULIP "CHRYSANTHEMUM) 
outputs [ROSE TULIP CHRYSANTHEMUM] 
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| . 
LIST [A QUICK BROWN FOX][LOOKS AT THE LAZY - 
FROG] 


outputs [[A QUICK BROWN FOX](LOOKS AT THE 
LAZY FROG]] 


LIST "A [] 
outputs [A [ ]] 


When LIsT is used with a single input, paren- 
_ theses around the expression are needed only if 

there is something else on the line following the 
expression: 
‘2MAKE “ANIMALS "TOADS 

?7SHOW LIST :ANIMALS 

CTOADS]) 

?7SHOW CLIST :ANIMALS) PR ''RELAX 


CTOADS] 
RELAX 


The following chart compares four primitives 
that combine words and lists: 


operation input #1 input #2 | output 

FPUT “COW "HORSE _ error 

LIST | "COW “HORSE : [COW HORSE] 

LPUT “COW "HORSE error 

SENTENCE "COW - HORSE [COW HORSE] 

FPUT "LOGO [IS WONDERFUL] [LOGO IS WONDERFUL] 
LIST "LOGO [IS WONDERFUL] [LOGO [IS WONDERFUL]] 
LPUT "LOGO {IS WONDERFUL] [IS WONDERFUL LOGO] 
SENTENCE "LOGO [IS WONDERFUL] [LOGO IS WONDERFUL] 
FPUT [THE FOX] [LOOKS AT FIDO] _{[THE FOX] LOOKS AT FIDO] 
LIST [THE FOX] {LOOKS AT FIDO} __ {(THE FOX] [LOOKS AT FIDO]] 
LPUT [THE FOX] [LOOKS AT FIDO] [LOOKS AT FIDO [THE FOX]] 
SENTENCE [THE FOX] {LOOKS AT FIDO] [THE FOX LOOKS AT FIDO] 
FPUT “COMPUTERS [] [COMPUTERS] 

LIST “COMPUTERS [] [COMPUTERS [ ]] 

LPUT "COMPUTERS = { | [COMPUTERS] 

SENTENCE - “COMPUTERS [] {(COMFUTERS] 
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LISTP 


LPUT 





LISTP object (operation) — 
Outputs TRUE if object is a list; otherwise FALSE. 
Examples: | 
LISTP 3 . 

outputs FALSE - 


LISTP [3] 
outputs TRUE 
LISTP[] 
outputs TRUE 
LISTP ”. 
outputs FALSE 


LISTP [A B C [D E] [F ich 
outputs TRUE 


-LISTP BUTFIRST "CHOCOLATE 


outputs FALSE 


LISTP BUTFIRST [CHOCOLATE] 
outputs TRUE 


LPUT object list (operation) _ 
(Stands for ‘‘Last PpuT’’.) Outputs a new list 
formed by putting object at the end of list. See en- 
try under LIST for chart comparing LPUT with | 
other primitives that combine words and lists. 
Examples: 
LPUT "GERBIL [HAMSTER GUINEA.PIG] 

‘ outputs [HAMSTER GUINEA.PIG GERBIL] - 


_ LPUT (THE A AN][CAT ELEPHANT] © 


outputs [CAT ELEPHANT [THE A AN]] | 


LPUT “A [ ] 


outputs [A] 


_ LAST LPUT "GERBIL [HAMSTER GUINEA. PIG] 


outputs GERBIL 
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MEMBERP 


The following procedure adds a new entry to an | 
English-Spanish dictionary 


TO NEWENTRY :ENTRY. ae 

MAKE. ""DICTIONARY LPUT :ENTRY :DICTION! 
ARY — 

END 


-2MAKE "DICTIONARY CCHOUSE CASA] [SPAN ! 


ISH ESPANOL] CHOW COMO]] 

?SHOW sDICTIONARY | 

[THOUSE CASA] (SPANISH ESPANOL] CHOW ! 
COMO) ] 


2?NEWENTRY [TABLE MESA] 


?7SHOW :DICTIONARY 


LLHOUSE CASA]. [SPANISH ESPANOL] CHOW ! 


COMO] [TABLE MESA]]. 


; MEMBERP abieet list (operation) 


Outputs TRUE if object is an element of list; other- 


‘wise outputs FALSE. — 


‘Examples: i 
a 3 {2 5 [3] 6] © 


outputs FALSE 


_MEMBERP 3[25 3 6] 


outputs TRUE 


-MEMBERP [2 6] [2 5 3 6] 


outputs FALSE 


-MEMBERP "BIT “RABBIT 


is an error. . 


-MEMBERP [FLORIDA GEORGIA} |[[FLORIDA 


GEORGIA] IOWA] © 
outputs TRUE 


MEMBERP [FLORIDA GEORGIA] [FLORIDA | 
GEORGIA IOWA] 
outputs FALSE 


MEMBERP BUTFIRST : FOG [OE OF OG. or 


outputs TRUE 
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NUMBERP 


SENTENCE 


SE 





The following procedure determines whether its 
input is a vowel: 
TO VOWELP : LETTER 


OUTPUT MEMBERP SPE ULES CA E I 0 UJ 
END 


ge is LP ''F 


FAL 
OPR VOWELP "A 


TRUE 


NUMBERP object (operation) 
Outputs TRUE if object is a number; otherwise : 
FALSE. | 
Examples: 
NUMBERP 3 > 
outputs TRUE 


NUMBERP [3] 
outputs FALSE 


-_ NUMBERP 3,14E23 


outputs TRUE 


NUMBERP [] | 
outputs FALSE | 

NUMBERP’ 
outputs FALSE. 


NUMBERP BUTFIRST 3165.2 
outputs TRUE 


NUMBERP BUTFIRST [ELEPHANT] 
COE FALSE | 


SENTENCE object1 object? ‘iegenal 
(SENTENCE object1 — object3... ) 


short form: SE. 
Outputs a list made up of the words i in its s inputs | 
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iim 
Examples: 


SENTENCE "PAPER "BOOKS 
outputs [PAPER BOOKS] 


SENTENCE [PAPER] [BOOKS] 
also outputs [PAPER BOOKS] 


SENTENCE “ABPLE [PEAR PLUM BANANA] 
outputs [APPLE PEAR PLUM BANANA] 


SENTENCE [A QUICK BROWN FOX][LOOKS AT THE 
LAZY FROG] 
outputs [A QUICK BROWN FOX LOOKS. AT THE 
LAZY FROG] | 


TO FLATTER :WHO 

PR SE CHELLO THERE, ] >WHO 

PR (] 

PR SE :WHO [IS A-VERY NICE. PERSON. ] 
PR SE WORD > WHO sWHO [CIS DOUBLY NICE] 
END | 


?FLATTER "BARBARA 
HELLO THERE, BARBARA 


BARBARA IS: A VERY NICE PERSON. 
BARBARABARBARA IS DOUBLY NICE 


See entry under LIST for chart comparing 
SENTENCE with other primitives that combine 
words and lists. 


Further examples: 
(SENTENCE “APPLE "PEAR "BANANA) 
outputs [APPLE PEAR BANANA] 


(SENTENCE "“MONET) 
outputs [MONET] 


_ SENTENCE "MONET []. 
also outputs [MONET] 
When SENTENCE is used with a single input, pa- 
rentheses around the expression are needed only 


if there is something else on the line eye the 
expression: 
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WORD 


?MAKE "ANIMALS "KITTENS 

?SHOW SENTENCE ANIMALS © 

[KITTENS] 

?7SHOW (SENTENCE :ANIMALS) PR ''PLAY 
[KITTENS] 

PLAY 


Compare the outputs when SENTENCE and LIST 

are applied to lists that contain other lists: 

SENTENCE [THE DOG] [LIKES [GREEN MICE]] 
outputs [THE DOG LIKES [GREEN MICE] 


LIST [THE DOG] [LIKES [GREEN MICE]] 
outputs [[THE DOG]{LIKES [GREEN MICE]] 


WORD word1 word2 (operation) 
(WORD wordl word2 words .. .) 


Outputs a word made up of its inputs. 


Examples: 


WORD "SUN "SHINE 


outputs SUNSHINE 


(WORD "CHEESE "BURG ”ER) 


outputs CHEESEBURGER 


WORD "BURG [ER] 


is an error. 


WORD "S "MILES 
outputs SMILES 


_The procedure SUFFIX puts AY at the end of its 


input: 


TO: SUFFIX >WD 
OUTPUT eon sWD MAY 
END : 


?PR SUFFIX "ANTEATER | 
ANTEATERAY | 


The essence of the procedure SUFFIX is. incorpo- 


rated into PIG and LATIN, which translate into a 
dialect of Pig Latin: | 


"| 


WORDP 


TO LATIN :SENT 


IF EMPTYP :SENT top (}] 


OP SE PIG FIRST :SENT LATIN BF > SENT 
END 


TO PIG :WORD 


IF MEMBERP FIRST :WORD [CA E I 0 UJ] LC! 


OP WORD :WORD "AY] 


OP PIG WORD BF :WORD FIRST :WORD 


END 


 ?PR LATIN CNO PiGS HAVE EVER SPOKEN ! 


PIG LATIN AMONG HUMANS] 
ONAY IGSPAY AVEHAY EVERAY OKENSPAY I! 


GPAY ATINLAY AMONGAY UMANSHAY 
? | 


WORDP object (operation) 
Outputs TRUE if object is a word; otherwise 
FALSE. 


_ Examples: 


WORDP 3 
outputs TRUE 


-WORD?P [3] 


outputs FALSE 


WORDP "ZAM 
outputs TRUE 


WORDP [E GRESS] 
outputs FALSE 


WORDP [] | 
outputs FALSE 

WORDP ” 
outputs TRUE | 


WORDP BUTFIRST "BURG 
outputs TRUE. 


WORDP BUTFIRST [BURG] 
outputs FALSE 
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Chapter 3 


LOCAL 


Variables 





A Logo word can be used as a variable; a variable © 


is a “container” which holds a Logo object. This" 
object i is called the word’s value. This can be ac- 


complished either by using MAKE or NAME, or by 


using procedure inputs. See the Overview and the 


Index for a discussion of inputs. 


LOCAL name (command) | 
(LOCAL namel name2...) | 


Makes its input(s) local to the procedure within 


which the LOCAL occurs. This means that cach of 
them is accessible only to that procedure and to 
procedures it calls; in this regard they. resemble 
inputs to the procedure. | 


| Example: 


TO YESNO :QUESTION 

LOCAL "ANSWER. 

PR :QUESTION | 

MAKE "ANSWER FIRST READLIST __ 

IF EQUALP :ANSWER "YES [OUTPUT "TRUE] 
OUTPUT "FALSE 

END 


TO GREET . 


PR CWHAT. IS YOUR FULL NAME ?.] 

MAKE "ANSWER READLIST - | 

IF YESNO [DO YOU LIKE YOUR NAME?) (PR! 
[THAT'S GOOD]] TPR {TOO BAD] 

PR SENTENCE CNIL. TO MEET YOU, \ J] 3A! 

NSWER | | 

END | 


2GREET es 

WHAT IS YOUR FULL NAME? 
HERMAN NIXON | | 
DO YOU LIKE YOUR NAME? 


NO 


ie BAD. | : 
NICE TO MEET You,. BEREAN NIXON: 


Imagine what happens if the LOCAL is omitted 
from YESNO. Each procedure uses a variable 
named ANSWER to hold the user’s answer to a 
question. Since the variables are not local, the pro- 
cedure YESNO destroys the value which GREET 
expects to have in that variable: | 
27GREET 

WHAT IS YOUR FULL NAME? 
HERMAN NIXON 


DO YOU LIKE YOUR NAME? 
NO | = 


TOO BAD 
NICE TO MEET YOU, NO 


‘MAKE _MAKE name object (command) | 
Puts object in name’s container, i.e. gives the | 
variable name the value onlect 


Examples: 


MAKE "JOB 259 
27PR :JOB 


259 a oat ines 
2MAKE "JOB "WELDER 
2PR :JOB 

WELDER 

MAKE "WELDER 32. 
27PR :WELDER 

en __ 

2PR THING -: JOB 


32 | 
oMAKE. :40B [JANE DOE). 


At this point :JoB is WELDER, and THING :JOB is 
[JANE DOE}. 


2PRINT "JOB 


JOB. , 
PRRINT. 3 JOB 

WELDER 
?PRINT THING "JOB 
WELDER - 
?PRINT THING :JOB 
[JANE DOE) 
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NAME 


. TO WEATHER 


PR [WHAT'S THE WEATHER LIKE TODAY?] 
MAKE "ANSWER READLIST 

IF :ANSWER = [RAINING] [PR CI WISH I! 
T WOULD STOP RAINING] STOP] 


IF :ANSWER = CSUNNY] CPR CI HOPE IT !. 


STAYS SUNNY] STOP] 
PR'C(SE CI WONDER IF IT WILL BE] :ANS! 
WER "TOMORROW. ) 
END 


WEATHER 2 
WHAT'S THE WEATHER LIKE TODAY? 


SUNNY 
I HOPE IT STAYS SUNNY 


?WEATHE 


R 
WHAT'S THE WEATHER LIKE TODAY? 


CLOUDY 
I WONDER: IF IT WILL BE CLOUDY TOMORR! 


OW. 


?7WEATHER 
WHAT'S THE WEATHER LIKE TODAY? 


RAINING 
I WISH IT. WOULD STOP. RAINING 


NAME object name (corimand) 
Puts object in name’s container, i. e. gives the 
variable name the value object. _ | 


‘Examples: 
.?7NAME 259 "JOB 


?7PR :JOB 
259 


?NAME “WELDER "JOB 


- 2PR > JOB 


WELDER 
NAME is equivalent to MAKE with the order of che 


inputs reversed. Thus NAME "WELDER "JOB has 
the same effect as MAKE "JOB "WELDER. 
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NAMEP 


THING 





NAMEP name (operation) 
Outputs, TRUE if name has a value (i.e., if; ‘name 
exists), FALSE otherwise. | | 


Examples: 


?7PR NAMEP "ANIMAL 

FALSE 

?7MAKE "ANIMAL “AARDVARK 
?PR s ANIMAL 

AARDVARK 


—?PR NAMEP "ANIMAL - 


TRUE | 


_ The procedure INC, listed below, ‘shows a use of 
_NAMEP. 


THING name {operation} 

Outputs the object in the container name, i.e. the 
value of the variable name. TH ING "ANY is equiva: 
lent to :ANY. | : 
Example: | 

This procedure increments (adds 1 to) the value of 
a variable: 

TO INC :X | 

IF NOT NAMEP :X [STOP] 
IF NUMBERP THING :X CMAKE :X: 1 + THI! 


NG :X) 
END 


(Note the use of MAKE :X rather than MAKE ’x. It 


is not x that’s being incremented. The value of x 


is not a number, but the name of another variable. 


It is that second variable which is incremented.). 


44 


— . ' ; : 
2MAKE "TOTAL 7 
2PR :TOTAL 
7 
2INC "TOTAL 
2?PR : TOTAL 
8 
2INC "TOTAL 
2PR :TOTAL 
9 


For other examples, see entry for MAKE above. 
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Chapter 4 


Arithmetic Operations 





Logo has integer and decimal numbers: 

3 is an integer. | 

3.14 and 3. are decimal numbers. 

Logo provides: primitives that let you add, sub- 
tract, multiply, and divide numbers. You can find 
sines, cosines, arctangents, and square roots; and 
you can test whether a number is equal to, less 
than, or greater than another number. 


Some arithmetic operations (INT, QUOTIENT, 
RANDOM, REMAINDER, ROUND) always output in- . 
tegers; some always output decimal numbers 
(ARCTAN, COS, SIN, SQRT, /); some output integers 
if all their inputs are integers, decimal number# 
otherwise (+,—.,*). | 
Thus 7 / 2 is 3.5 (a decimal number), but 
QUOTIENT 72 is 3 (an integer). _ 


3.5 + 6.5 is 10. (a decimal number), but 3 + Tis 10 (an 


integer). Note that 3 + 7.:is 10. (a decimal number). 


The largest possible integer in Logo is 
2147483647, which is 2*'—1; the smallest is 


_ 2147483648, which is —2*!. Decimal numbers 
_ with more than six digits are converted into expo- 


neritial form (scientific notation). For example: 


26 means 2 times 10°, or 2,000,000; 
2.59N4 means 2.59 times 10~‘, or .000259 
(the N indicates a negative exponent). 


Exponents range from —38 to 37. 


Logo rounds off a decimal number if it contains 
more than six digits. For example, the number 
2718281828459.045 is converted to 2.71828E 12. 


ARCTAN 





Addition, subtraction, multiplication, and divi- 


sion are available in infix notation. The name of | 


an infix procedure goes between its inputs, not be- 


fore them. Addition and multiplication are also. 
provided in prefix form as Logo operations taking 
two or more inputs. For example, the following 
expressions are-equivalent: 


2+1 
SUM 21 


In addition to those listed here, the primitive 
-EQUALP is often used in conjunction with arith- | 


metic operations. It is described in Chapter 2 
(Words and Lists). The infix operation =, 
described in this chapter, is equivalent to 
EQUALP. oO | 


Prefix-Form _ 
ARCTAN 7 (operation) 


_ Outputs the arctangent (inverse tangent) of n. 


Examples: 
ARCTAN 2 
outputs 63.4348 


ARCTAN 444 | 
outputs 89.8710 


The following procedures define ARCSIN and | 
ARCCOS: - | | 
TO ARCSIN :X 


OUTPUT ARCTAN >X / (SQRT 1 - 3X * 3X) 
END 


TO ARCCOS :X 
OUTPUT ARCTAN (SQRT 1 - :X * 2X) / 2X: 
END | 


Cos n' (operation) 
Outputs the cosine of n degrees. It is an error if n 
is greater than 4.19E6. 
Examples: | 
COS 60 
outputs .5. 
COS 30 | 
outputs | 866025 
Here i is & definition of the tangent function: 


TO TAN :ANGLE 
OUTPUT (SIN :ANGLE) / COS :ANGLE 
END : : 


?PR TAN 45 
1. : : 


INT n (operation) 
Outputs the integer portion of n (by removing the 
decimal portion, if any). See also ROUND. 
Examples: - 
INT 5.2129 

‘outputs 5 


INT 5.5129 


outputs 5 


INT 5 
outputs 5 

INT —5.8 
outputs —5 


INT —12.3 
outputs —12 


The procedure INTP tells whether its input is an 
integer: 


TO INTP :N 

IF NOT NUMBERP :N COP [NOT A NUMBER] 
OP :N = INT :N. 

END | 
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PRODUCT 


QUOTIENT 


2PRINT INTP 17 © 
TRUE 
?PRINT INTP 100 / 8 © 


“FALSE 


?PRINT- INTP “ONE | 
NOT A NUMBER | 
?PRINT INTP. SQRT 20 
FALSE 


PRODUCT a b werieouae 
(PRODUCT a bc. 
Outputs the ae of its inputs. Equivalent to * 
(see list of infix-form operations below). | 
Examples: 
PRODUCT 6 2 

outputs 12 


(PRODUCT 23 4) 
outputs 24 


PRODUCT 2.54 — 
outputs 18. 


PRODUCT 2.5 2.5 
outputs 6.25 


- TO CUBE :NUM 


OP (PRODUCT :NUM :NUM NUM) 
END | 


-2PR CUBE 2 
8 


With one input, PRODUCT outputs its input. 


QUOTIENT ab (operation) 
Outputs the result of dividing a by b, truncated to 
an integer. It is an error if b is 0. 


_ Examples: 


QUOTIENT 125 
| outputs 2° 


QUOTIENT —12 5 


outputs —2. 5) 


' RANDOM 


| REMAINDER | 


QUOTIENT 6 2.5 
outputs 2 


‘QUOTIENT 3.2 0 


is an error. 


RANDOM n (operation) 

Outputs a random non-negative integer less than. 
n. 

Example: | 

RANDOM 6 could output @, 1, 2,3, 4, or 5. The follow- 
ing program simulates a roll of a six-sided die: 
TO D6 


OUTPUT 1 + RANDOM 6 
END 7 


2PR D6 
3 


.27PR D6 
5 


PR D6 
5 


REMAINDER a 5b (operation) 


Outputs the remainder obtained when a is divided 


by b. (If a and 6 are integers, this is a mod b.) It is 
an error if 6 is 0. 
Examples: 
REMAINDER 12 16 
outputs 2 


REMAINDER 125 
outputs 2 


REMAINDER 1215 
outputs 12 


REMAINDER —125 
outputs —2 


A 
Lai 





The following procedure tells whether its input is 
even: 


TO EVENP : NUMBER | 
OP ® = REMAINDER = NUMBER 2 
END 


7PR EVENP 5S; 
sFALSE 
?PR EVENP 12462 


TRUE: 


The following more general procedure tells 


whether its first input is a divisor of its second 


_ input:> 
TO DIVISORP :A :B 


OP 8 = REMAINDER “6 cA 
END - 


27PR DIVISORP 3 15 
TRUE 


_ 2PR DIVISORP 4 15 | 


FALSE 


'-RERANDOM (command) | 7 | 
_ Makes RANDOM behave reproducibly: after you 


run RERANDOM, Calls to RANDOM output the 
sarhne sequences of numbers each time. 
Example: 


TO DICE :THROWS - 


IF :THROWS = 8 [STOP]. 
PR 1 + RANDOM 6 

DICE :THROWS - 1 

END 


2DICE 6 


AWA MW. 
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ROUND | 


2DICE 6 


WWW 


?RERANDOM 
DICE 6 


N-AOAOW FS 


?7RERANDOM 
27DICE 6 


N= OOW SE 


ROUND n (operation) 
Outputs n rounded off to the nearest integer 


Compare with examples under INT. - 
Examples: | 


ROUND 5.2129 
outputs 5 


ROUND 5.5129 
outputs 6 


ROUND .5 
outputs 1 


ROUND —5.8 
outputs —6 


ROUND —12.3 
outputs —12 
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SIN 


SQRT 


SINn (operation) 
Outputs the sine of n degrees. It is an error if n is 
greater than 4.19E6. See also Cos. | 
Example: 
SIN 30. 

outputs 5 


SQRT a (operation) 

Outputs the square root of a. It is an error if a is 
negative. 

Examples: 


SQRT 25 
outputs 5. 


SQRT 259 


outputs 16.0935 


The following procedure outputs the distance 
from the turtle’s position to HOME: — : 


TO FROM.HOME 
OP SQRT SUM XCOR * XCOR YCOR * YCOR 
END | 


And the Seeestae DISTANCE takes any two posi- 
tions as inputs, and outputs the distance between’ 
them: 

TO DISTANCE :POS1 :POS2 

OP SQRT SUM.SQ CCFIRST :POS1) - FIRS! 


T :POS2) SQ (CLAST :POS1) - LAST :POQ! 
$2) : 


END 


TO SQ :N 
OP :N * =N 


END 


?PR DISTANCE i= 70 10] (58 68] © 
130 


SUM 





SsUMa}b (operation) © 


 (suMa bc...) 


Outputs the sum of its inputs. Equivalent to + 
(see list of infix- form Spcralgns below). 


Examples: 
(SUM 52 


outputs 7 
(SUM 13 2-1) 
outputs 5 
SUM 2.3 2.561 
outputs 4.861 — 7 
With. one input, SUM outputs its input. 


Infix-Form 

Note: Since the syinbols for these aeaions are 
word-separators, spaces are optional before and . 
after them. Thus the following are equivalent: 
2+ 5 | 

2+5 


at b (infix-form operation) 


Outputs the sum of its inputs. Equivalent to SUM 
(see list of prefix-form operations above). 
Examples: 
5+2. | 

“outputs 7 


1+3+2+1 
outputs 7 


2.54 + 12.3) 


outputs 14 84. 


a-—b (infix-form siieaions 
Outputs the result of subtracting b from a. If ais 
missing and there is no space after the minus 
sign, it outputs the opposite of b (0-5). 
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| | Examples: - 


?PR 7 - 1 
6 : 
2PR 7-1 

6 

?PP PRODUCT 7 -1. 
?7PR -3 

-3 

?PR - | 

NOT ENOUGH INPUTS TO 
?2PR -3 - -2 

1 


The procedure ABS outputs the absolute value of 
its input: 


TO ABS :NUM | 
OP IF :NUM < 0 [-:NUM) [(:NUM] 


END 
2PR ABS -35 
35 

2PR ABS 35 
35 


NEAR tells whether two numbers are ‘‘close’’: 
TO. NEAR :A :B 

OP CABS :A - :B) <..01 

END | 

2PR NEAR XCOR 100 

TRUE 


2PR XCOR 
99.9934. 


Note that there is a potential ambiguity between 
the minus sign with one input and the minus sign 
with two inputs. Logo resolves this ambiguity as 
follows: oo 
7-118 6 

7-—1is alsoé 
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| 7 -— 1is also6 7 
But 7 —1 is a pair of numbers (7 and —1). 
For more detailed information, : see Appendix, I 
(Parsing). 


a*b (infix-form operation). 
Outputs the product of its inputs. Equivalent to 
PRODUCT (see list of Esta torn operations 
above). | 
Examples: 
6*2 | 
outputs 12 
2*3%4 
outputs 24 © 
1.3 * 1.3 a 
outputs 1.69 
(48 * 5 | 
| outputs 24, 
TO alga sN 
IF :N = 0). EGE 1) COP oN * FACTORIAL !. 


=N-1] 
END 


2PR FACTORIAL 4 
24 

2PR FACTORIAL 1 
1 = 


a!b (infix-form operation) 
Outputs a divided by b. It is an error if b is 0. 
Examples: 
6/3 
outputs 2. 


8/3 
outputs 2.66667. 


2.5/3.8 


outputs .657895 
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0/7 
outputs @. 


7/0 
is an error. 


a <b (infix-form operation) | 
Outputs TRUE if a is less than b; otherwise out- 
puts FALSE. 


Examples: 
2<3 
outputs TRUE 
-7<-10. 
outputs FALSE 


a=b (infix-form operation) 
Outputs TRUE if a and 6 are equal numbers, iden- 
tical words, or identical lists; otherwise outputs 
_FALSE. Equivalent to EQUALP (described in Chap- 
ter 2). | 


Examples: 
10@ = 50*2 
outputs TRUE 
3 = FIRST 3.1416 
outputs TRUE 
[THE A AN] = [THE A] 
- outputs FALSE 
1.277 | 
outputs TRUE (a decimal number is equivalent 
to the corresponding integer) 
=[] 


are FALSE (the empty word and the empty 
list are not identical) 
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aS a SARE I PI ENE TED 
> | | a> 6 (infix-form operation) | 
: Outputs TRUE if a is greater than b; otherwise 
outputs FALSE. 
Examples: 
4>3 
outputs TRUE © 


-10 > -—7 
outputs FALSE 
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Chapter 5 Defining Procedures with TO . 





There are several ways to define Logo procedures. 
One way is with To. See EDIT (in Chapter 6) and- 
DEFINE (in Chapter 13) for the other ways. a 


The primitives COPYDEF and TExT are also re- 
lated to. procedure definition. They are described 
in n Chapter 13. 





TO. | TO name input input2 . . . (command) 


7TO SQUARE :SIDE 
>FD :SIDE 

>RT 98 

>FD :SIDE 

>RT 98 

>FD :SIDE 

>RT 96 

>FD :SIDE 

>RT 99 

->END 


-SQUARE DEFINED 
? 


2T0 ANNOUNCE :FIRSTNAME :LASTNAME 

>PRINT CWE'RE HAPPY TO ANNOUNCE THE. 

BIRTH OF] 

>PRINT (SE. sFIRSTNAME 10. : LASTNAME) 
. >PRINT C9 POUNDS 16 02] | 

>END — 


ANNOUNCE DEFINED 
i ae 


(The prompts are shawn in these examples to em- | 
phasize the actions of TO and END.) 


TO tells Logo that you are defining a procedure - 
called name, with inputs (if any) as indicated. (Do — 
not quote name, nor input! input2 ..., since TO 
quotes them automatically.) The prompt changes 
from “?” to “>” to remind you that you are defin- 
ing a procedure. Logo does not carry out the ac- 
tions that you type; it makes them part of the 
procedure definition. The special word END must 
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be used alone on a line to stop defining the proce- 
dure and to return to Logo toplevel. 


_ END END (special word) 
: END. is necessary, when you are using TO, to tell 


Logo that you are done defining the procedure. It 
~ must be on a line by itself. 
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Chapter 6 


EDIT 


Defining and Editing with the 
Logo Editor 


This chapter tells you how to define and change 


Logo procedures using EDIT. 


Logo has an interactive screen-oriented text edi- 


tor; it provides a flexible way to define and change 


procedures. You may define more than one proce- 
dure at a time in the editor. | 


If you are defining a procedure for the first time 


.rather than changing an existing definition, you 
can use TO, but you may still prefer EDIT. 


EDIT (command) short form: ED 


EDIT name(list) 


__ Starts up the Logo editor. If an input is given, the 


editor starts up with the definition(s) of proce- 


- dures nameflist) in the edit buffer. If any proce- — 
dure name is undefined, the edit buffer contains 
_ just the title line: To nazne. If no input is given, 


the edit buffer has the same contents as the last 


_ time you used the editor, unless you have used 
_ turtle graphics or the file system since then, in _ 


which case the buffer is empty. 


CTRL-C is the standard way to exit from the editor. 
Logo reads every line from the edit buffer as — 


_ though you had typed it outside the editor. If 


there is a procedure definition in the editor, and 
the end of the buffer is reached, Logo ENDS. the 
procedure definition. 


- CTRLG aborts editing. Use it if you don’t like the 


changes you are making or you decide not to 
make changes. Any changes you make in the edit 


- buffer will be ignored. If you were defining a pro- 
cedure, the definition will be the same as before 
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Ps 
you started editing. If you type CTRL-G when you 
don’t mean to, you can get back to your edit 
buffer with EDIT (no input). | 


When you are in the ediior, you may use all 
the editing actions described-below. Appen- 
dix B contains a quick reference table of editor 
actions. : 

An Overview of the Logo Editor . 
When the editor is called, the screen changes. For 
example: 

2EDIT "POLY 


#0 POLY :SIDE :ANGLE 

FD :SIDE 

RT :ANGLE 

POLY :SIDE :ANGLE 
END 





LOGO EDITOR } 
There is no prompt character, but the & (cursor) 
shows you where you are typing. 


The text that you edit is in a buffer. You see the 
text on your screen. | 


You can move the cursor anywhere in the edit. 
_ buffer; you can change the text around, insert any 
text you want, and delete any text. 


_ Each key that you type makes the editor take 
some action. Most typewriter characters (alpha- 
bet, numbers, punctuation, and RETURN) are sim- 

~ ply inserted into the buffer. at the place marked on 


the screen by the cursor. | 
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The arrow keys and many CTRL characters have 
special meanings that help you edit. (The Logo . 
Editor actions are based on those of EMACS, 

an editor i in widespread use on other computer 
systems.) | 


When you i RETURN, the cursor moves to the — 
next line, ready for you to type more: 


You can have more characters on a line of text 
than fit across the screen. An exclamation mark 
(!) is put in the rightmost character position on 
the line (column 39) andthe (cursor) move3 to the 
next line. Logo does the game thing outside of the 

editor. Here is what the screen might look like: _ 
TO PRINTMESSAGES :PERSON . _ 

' PRINT SENTENCE <PERSON C, I AM GOING! |. 
TO TYPE A VERY LONG MESSAGE FOR YOU] | 

PRINT SENTENCE [SO LONG, ] : PERSON | 7 


The editor has an auxiliary line buffer called the. 
kill buffer. cTRL-K deletes a whole line of text and 
puts it in this buffer. crRL-y inserts this line of © 
text later at the place marked by the cursor. . 


When you exit from the editor (by typing CTRL-C) 
‘Logo reads each line in the edit buffer as if you 
_ had typed it directly to Logo. | 


If the instructions i in the edit buffer define a pro- 
.. cedure (that is, if there is a title line To . ... that 
_starts the definition), Logo behaves as though. | 
you had typed the definition of the procedure us: 
ing TO. If the buffer contains a procédure defini- - 
tion, but there is no END instruction at the end of 
the buffer, Logo helps out: by ENDing the defini- 
_tion for you. 
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(Sewn IONE A OS 


CTRL-F 


If there are Logo instructions on lines in the edit 


- buffer that are not part of the definition of a pro- 


cedure, they will be carried out when you exit the 
editor. - 


Editing Actions 


Editing Logo Instructions Outside the Editor 
When you are outside the editor you can change 
the line of text that you are typing (the one with 
the cursor on it) by using the starred editor com- 

| mands below. 


| Cursor Motion 


* — or CTRL-F (cursor Viveard moves the cursor 
right (forward) one character position. Cee 


' also has the same action.) 


| *CTRLB eieaoe Back) x moves the cursor left (back) | 
' one character position. 


-CTRL-N (Next line) moves the cursor down one line 


to the next line. The cursor tries to go to the char- 


_acter position directly underneath its ‘position on 


the current line. If the next line is shorter than the. 


_ cursor position on the current line, the cursor goes 


to the end of the next line. If the cursor is at the 
end of the buffer, it does not move. 


3 Example: 


THIS Is A TEXT BINE | ; Cursor on LL 
THIS IS ANOTHERETEXT LINE Cursor on space 
A SHORTER ONEG © Cursor at end 
THIS IS A. LONGE® ONE THAN CAN FIT ON! 
THE SCREEN | - Cursor.on R 
THIS” IS THE NEX® LINE Cursor on T 


| a 


CTRL-P 


CTRL-A 


CTRLE 


ESC > 
ESC-< 


| CTRLM 


CTRLQ 


CTRL-O 





CTRL-P (Previous line) moves the cursor up one line 


- to the Previous line. The cursor tries to go to the 


character position directly above its position on 
the current line. If the previous line is shorter 
than the cursor position on the current line, the 


_. cursor moves to the end of the previous line. If the 
cursor is on the first line in the buffer, it does not: 
move. | 


*CTRL-A (beginning of line) moves the cursor to the 
beginning of the current line. 


* CTRLE (End of line) moves the cursor to the end. 
of the current line (to the right of the last visible 


| character on the line). 


The following are sequences of two keystrokes. 


First type ESC, then the next key as specified. 


_ ESC > (eid of buffer) moves the cursor to the end 
_ of the buffer. 


ESC < (beginning of buffer) moves the cursor to - 
_the beginning of the buffer. 


Inserting and Deleting 


_ *CTRL-M is the same as RETURN. 


*CTRL-Q inserts a quoting character (printed as \) 


~ in the buffer. This allows you to quote characters 
like space, [, ], (ete. which ordinarily have special | 


meaning to Logo. 


-CTRL-O (Open line) opens a new line at the position 
_ of the cursor. It is equivalent to RETURN CTRL-B. 


| 


cg rT SE SS TG 


DELETE 


« The DELETE key erases the character to the left of 


_ the cursor. The cursor backs up one position. The 


<- key is the DELETE key. You should have a label 


‘marked DELETE stuck on the front of this key. 


(CTRL-H has exactly the same action.) 


* CTRL-D erases the character at the cursor posi 


tion. Compare with DELETE. 


- © CTRL-K (Kill to end of line) deletes text from the. 


cursor position to the end of the current line. This 
text is placed in the kill buffer, which can hold up 


to 256 characters. 


* CTRL-Y inserts a copy of the text that is in the kill 


_ buffer at the current cursor position. When you 
. are outside the editor, i it retrieves the last line you 


typed. 


Getting Out of the Editor 
CTRLC is the standard way to exit from the editor. 


| cre aborts editing. Use it if you don’t like the | 


changes you are making or you decide not to 
make changes. Any changes you make in the edit 


buffer will be ignored. If you were defining a pro- 


cedure, the definition will be the same as before 
you started editing. If you type CTRL-G when you 
don’t mean to, you can get back to your edit 
buffer with EDIT (no input). 


Scrolling the Screen | 

If the text in your edit buffer has too many lines 
to fit on the screen, you can use these commands © 
to control what'is shown on the screen. Changing | 
what portion of the buffer is shown is called 
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CTRL-V ° 


ESCV. 


-CTRL-L 


EDNS 


“scrolling’’ because you can imagine the buffer - 
being rolled up and down past the screen. 


CTRL-V (next page). Your ‘“‘next page’ of text is 
brought to the screen. The cursor is moved to the 
beginning of the last. line on the screen, and then 
that line becomes the first line on the screen. If 


there is no new page of text (i.e. no text beyond 


the screen), the editor beeps and does nothing. 


ESC V (previous page) scrolls back one page. This 
has the opposite action from CTRL-V. 


— CTRL-L (redisplay) ‘scrolls the screen so that the 


current line is in the center of the screen. If there 
is less than half a screen of text in the buffer, the 


editor beeps and does nothing. 


7 N ote that CTRL-L. has a different meaning out- 
_ side of the editor. See e Chapter 10 (text and screen 
; commands). a 


EDNS (command) 
EDNS package 


EDNS package list . , 

(Stands for EDit Names. ) With no input, puts all 
variables and their values (except those in buried 
packages) in the edit buffer. EDNS with an input 
puts all the variables in the named package(s) in 
the edit buffer (even if those packages are buried). 

The edit buffer has the orwene form: 

MAKE "VAR1 VAL1 


MAKE "VAR2 VAL2 
MAKE "'VAR3 VAL3 
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These variables’ names and values can then be ed- 
ited. When you exit from the editor the MAKE 
commands are run, so whatever variables and 
values have been changed i in the edit buffer are 
_ Changed in Logo. ~ 

Example: 


-?PONS 

ANIMAL’ IS GIBBON 

“SPEED IS 55__ | 

AIRCRAFT IS [JET HELICOPTER] 
2EDNS - 


The screen Sore like: : 


MAKE “ANIMAL "GLBBON 
MAKE "SPEED 55 — 
MAKE "AIRCRAFT (JET HELICOPTER] - 


If you edit to make the following chengeee and exit 
_ the editor with crr.-c: 
MAKE "ANIMAL "GRYFFIN 


MAKE "SPEED 55 
MAKE "AIRCRAFT CJET HELICOPTER BLIMP] 


| Then 
2PONS a 
ANIMAL IS GRYFFIN 


SPEED IS 55 
AIRCRAFT IS [JET HELICOPTER BLIMP] 
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Chapter 7 


Co 








Conditionals and Flow of Control 
_ This chapter describes how you can control the or- 
der in which Logo follows instructions. It dis- 
cusses conditionals (‘‘if such-and-such is true, do 
one thing; otherwise, do something else’’), itera- 
tion (“‘run a list of instructions one or more 
times”’), halting (‘‘stop this procedure’’), and paus- 
ing (“interrupt this procedure while it’s running, — 
but let it resume afterwards’). 
General example of flow of control among Logo 
procedures: | 
TO. ANSWER :QUESTION. 
PR DECIDE | | (calls DECIDE) 
END 
TO DECIDE | 
IF FLIP. COP "YES] ‘(calls FLIP) 
OP "NO | | 
END | 
TO FLIP. 
OP 8. = RANDOM. 2. 
END 
27ANSWER twr LL MY NEXT. FORTUNE. COOKIE | 
TELL THE TRUTH?1 
YES 
In addition to those descr se sibed i in 1 this chapter, the 
following primitives are related to conditionals 
_ and flow of control: CATCH, ERROR, GO, LABEL, 
THROW, which are described in Chapter 13. 
CO (command) — 


Co object . 

(Stands for “continue”.) Resumes running of a 
procedure after a PAUSE or CTRL-Z, continuing 
from wherever the procedure paused. If co has an 


19 . 


IF 


_IFFALSE 


IFF 





| input, it becomes the output from PAUSE: this is 


particularly useful when you’ve interrupted a 
READLIST or READCHAR with aCTRL-Z, since CO’s 


input is then read by the READLIST or READCHAR. 


_ IF pred instructionlist1 (command or operation) 


IF pred instructionkstl instructionlist2 

If pred is TRUE, runs instructionlistl. Hf pred is 
FALSE, runs instructionlist2 (if present). 

In either case, if the selected instructionlist out- 
puts, then IF outputs what instructionlist out- 


‘puts. If the list does not output, neither does IF. 
Examples: 


The procedure DECIDE is written i in three equiva- 
lent ways. The first two use IF as a command— 


- one version with two inputs to IF, one with three 


inputs. The third version of DECIDE uses IF (with 
three inputs) as an operation. 


IF as a command | 


TO DECIDE 
IF 9 = RANDOM 2 COP "YES) 
OP "NO 


END © 


TO" DECIDE 
IF 6 = RANDOM 2 COP "YES) COP "NO? 
END 


IF as an operation 


TO DECIDE | : _ 
OUTPUT IF ® = RANDOM 2 ["YES] ["NO] 


END 


IFFALSE instructionlist (command) short form: 
IFF | | 

Runs instructionlist if the result of the most re- 
cent TEST was FALSE, otherwise does nothing. 
See TEST. 80 


, J . ‘ i 


IFTRUE 
IFT 


Example: 
TO QUIZ 


_ PRINT CWHAT IS THE CAPITAL OF NEW JE! 


RSEY?] 


TEST READLIST = [TRENTON] 


IFTRUE CPRINT "CORRECT! ] 
IFFALSE CPRINT “WRONG ] 
END 


—PQUIZ 
WHAT IS THE CAPITAL OF. NEW JERSEY? © 


NEWARK 
WRONG 


IFTRUE instructionlist (command) short form: 
IFT | 7 


‘Runs mstructionlist if the result of the most re- - 


cent TEST was TRUE, otherwise does nothing. See 
TEST. 


Example: 


TO QUIZ 
PR CWHO IS THE GREATEST?] 


- TEST READLIST = [ME] 


IFTRUE CPR [RIGHT ON] STOP] 
PR [NO, TRY AGAIN] 

QUIZ 

END 


~7QUIZ 


WHO IS THE GREATES: es 
— GEORGE | | 


NO, TRY AGAIN 

WHO IS THE GREATEST? 
ME 

RIGHT ON- 





OUTPUT OUTPUT object. (command) short form: OP _ 

OP This command is meaningful only when it is 
within a procedure, not at toplevel. It makes ob- 
ject the output of your procedure and returns con- 
trol to the caller. Note that although OUTPUT is 

_ itself ‘a command, the procedure containing it is 

an operation because it has an output (compare 
STOP). | 
Examples: | 


TO MARK. TWAIN 
OUTPUT CSAMUEL CLEMENS] 
END 


?PR SE MARK. TWAIN CIS A GREAT AUTHOR] 
SAMUEL CLEMENS IS A GRFAT AIITHOR 7 


WHICH outputs the position of an element in a | 

list: | 7 

TO WHICH :MEMBER :LIST. 

IF NOT MEMBERP :MEMBER :LIST [COUTPUT! 

0) | | 

IF :MEMBER = FIRST :LIST LOUTPUT 1] 

OUTPUT 1 + WHICH :MEMBER BF :LIST 
END | : 


2MAKE "VOWELS [CA E I 0 U] 
?PR WHICH "E :VOWELS 


2 
?PR WHICH "U :VOWELS 
5 


?PR WHICH "W : VOWELS 
9 | | 


Here is one definition of the absolute-value opera- 


tion: 

TO ABS :N 

IF :N <- 9 COUTPUT -:NJ] COUTPUT :N] 
END . 


(see entry for minus for alternate version) 
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PAUSE 


The following operation tells whether its first in- 
put (a character) is an element of its second input. 


(a word). 


TO INP : CHAR >WORD : 

IF EMPTYP :WORD [OUTPUT "FALSE] 

IF EQUALP :CHAR FIRST :WORD COUTPUT! 
"TRUE] 

OUTPUT INP :CHAR BUTFIRST :WORD 


END 

2?PRINT ENP "A "TEACUP 
TRUE | 
2PRINT INP "TEA "TEACUP 
FALSE | 


- 2PRINT INP "I "SAUCER 


FALSE 


PAUSE (command or operation) 

This command is meaningful only when it is 
within a procedure, not at toplevel. It suspends 
running of the procedure and tells you that you 


are pausing; you can then type instructions in- 
: teractively. To indicate that you are in a PAUSE 
and not at toplevel, the prompt changes to the 


name of procedure(s) followed by a question- 
mark. During a PAUSE, CTRL-G does not work; the 
only way to return to toplevel during a pause is to 
Tun THROW "TOPLEVEL. 


All local variables are accessible during a PAUSE 
(see PR :MAX in example below). 


The procedure may be resumed by typing co. If 
co has an input, then PAUSE is an operation. CO’s 
input becomes PAUSE’s output. 


Pie SAS PMI SS 0 EA a OL a en Le SIN Ie ee | 


REPEAT 


RUN 


Examples: 


TO WALK =:MAX 
RT RANDOM 360 


FD RANDOM :MAX 
PR POS 

PAUSE 

WALK :MAX 

END 


?WALK 1080. 
68.4199 -13.947 
PAUSING... IN WALK: 
PAUSE 7 


WALK ?PR HEADING 


103. | 
WALK ?PR -:MAX 
100 

WALK ?CO | 
68.4381 2.1059 


REPEAT n instructionlist. (command) 

Runs instructionlist n times. It is an error if n is 
negative. If n is not an integer it is truncated to an 
integer. | 

Examples: _ | 

REPEAT 4[(FD 100 RT 90] draws a square 100 turtle 
steps on a side. : 

REPEAT 3 [FD 100 RT 90] draws three quarters. of a 
square. | | 


Oo}, 


REPEAT 4 REPEAT 3 
[FD 100 RT 90] [FD 100 RT 90} 





RUN instructionlist (command or operation) 
Runs instructionlist as if typed in directly. If 
instructionist is an operation, then RUN outputs 
whatever instructionlist outputs. 
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_ Examples: | 

~ TO CALCULATOR . 
PR RUN READLIST. 
PR C] 


CALCULATOR 
END 


?CALCULATOR 
2+ 3 

3 : , 
17.5 * 3 
52.5 


42=8%* 7 
FALSE. 


REMAINDER 12 5 


TO WHILE :CONDITION :INSTRUCTIONLIST 
TEST RUN :CONDITION 

IFFALSE [STOP] 
RUN :INSTRUCTIONLIST 

WHILE :CONDITION :INSTRUCTIONLIST 
END 


RT 10 
WHILE {CXCOR < 100) CFD 25 PR POS) 


The following procedure applies a command to 
each element of a list in turn: 


TO MAP :CMD :LIST 

IF EMPTYP :LIST CSTOP] 

RUN LIST :CMD WORD '' FIRST :LIST 
MAP :CMD SF :LIST 

END 
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?7TO SQUARE SIDE Pe 4. 
>REPEAT 4 CFD :SIDE RT 901 
>END 

7MAP "SQUARE [10 20 40 80] 





. MAP "SQUARE [10 20 40 890] . 


?MAKE "NEW. ENGLAND [CME NH VT MA RI C! 
T] 
?7MAP "PRINT :NEW. ENGLAND 


The following procedure, FOREVER, repeats its in- 
put forever | (unless it hits an error or is stopped 
with CTRL-G): | 

TO FOREVER :INSTRUCTIONLIST 

RUN :INSTRUCTIONLIST | 


FOREVER :INSTRUCTIONLIST 
END 


The command FOREVER [FD 1 RT 1] tells the turtle 
to draw a circle. 


FOREVER [FD 1 RT 1] 


The command FOREVER [PR RUN READLIST PR []] 
is equivalent to the CALCULATOR procedure de- 
fined above. 


The procedure SAFE.SQUARE draws a square and 
then restores the pen type to whatever it was pre- 


viously: | 
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STOP 


Oe -nwWsE. 


TO ‘SAFE. SQUARE 


MAKE "'SAVETYPE FIRST PEN 


PENDOWN 

SQUARE 100 | 
RUN SE :SAVETYPE 
END 


TO add eae _ 
REPEAT 4 [FD :LEN RT 98] 
END 


7SHOW PEN) 


CPENUP 1] 


?7SAFE.SQUARE 
?SHOW PEN | 
CPENUP 7) 


RUN READLIST runs any commands typed i in by 
the user. | | 
PRINT RUN READLIST prints the output from any 
expression typed i in by the user. 


STOP (command): 
Stops the procedure that i is running and returns 
control to the caller. This command is meaningful 
‘only when it is within a procedure—not at top- 


leve:. Note that a procedure containing STOP is a 
command (compare OUTPUT). 


Examples: | 


TO COUNTDOWN :NUM __ 
PR sNUM | 


TF =NUM = ® CPR [BLAST OFF!) STOP] 
| COUNTDOWN :NUM - 1 


END 
?7COUNTDOWN 4 
LAST OF*! 
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TEST — 


CTRL-G 


CTRL-W 


CTRL-Z 





TEST pred (command) 


Remembers whether pred is TRUE or FALSE. for 
subsequent use by IFTRUE or IFFALSE. Each 
TEST is local to the procedure in which it occurs. 


Example: 


TO SHORTQUIZ ~ | 

PR CHOW ARE YOU?) | 

TEST READLIST.= CFINE) 

IFTRUE) CPR cr'M GLAD TO HEAR IT]] 
END 


-2SHORTQUIZ 


HOW ARE YOU? 


LOUSY 


2SHORTQUIZ 


HOW ARE. YOU? 


FINE | 
I'M GLAD TO HEAR IT- 
Special crRt characters 

CTRL-G (special character) 


Immediately stops whatever is running, returns 


Logo to top level, and types a question-mark. 
May be typed at any time. : 


CTRL-W (special character) _ 

Interrupts whatever is running. Typing any char- 
acter other than CTRL-w resumes normal running. 
This character is particularly useful to give your- 
self time to read when more than one screenful of 
information is being printed out. 


CTRLZ (special character) - 


Interrupts whatever is running, causing a PAUSE. 


Equivalent in effect to PAUSE, but different in 
how it is used: CTRL-Z is typed at the keyboard 


‘during the running of a procedure; PAUSE is part 


of the definition of a procedure. . 
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Chapter 8 Logical Operations 





Recall that predicates are operations that output 
only TRUE or FALSE. Most of their names end in P. 


-Thére are some Logo predicates whose inputs 

- must be TRUE or FALSE. These are called logical 

operations. Their names do not end in Pp. The de- 

signers of Apple Logo have chosen to retain the 
traditional names AND, OR, and NOT. 


The inputs to logical operations are usually predi- 
cates. Predicates are found throughout the other 
chapters of this manual: 


- Predicate — Chapter 

_ BUTTONP | ‘=e, 35 "" 

- DEFINEDP 13 | 
EMPTYP | 
EQUALP 
KEYP 

_ LISTP 

. MEMBERP 
NAMEP 
NUMBERP 
PRIMITIVEP 
SHOWNP 
WORDP 

< 


bh 1 | 
PPP Ne wn OD DW OD dO 


> 


AND AND pred1 pred2 (operation) 
(AND pred pred2 pred3 . . .) 
Outputs TRUE if all its inputs are true, FALSE oth- 
erwise. 


Examples: 
AND "TRUE "TRUE 
outputs TRUE 
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AND "TRUE "FALSE 
* Outputs FALSE 


AND "FALSE "FALSE 
outputs FALSE 


(AND "TRUE "TRUE "FALSE "TRUE) 
outputs FALSE 


AND.57 | 
is an etror. 


AND PENCOLOR=0 BACKGROUND=@ (when you 
start up the turtle) 
outputs FALSE 


The following procedure, DECIMALP, tells 
‘whether its input is a decimal number: 


TO DECIMALP. :OBJ 
OUTPUT AND NUMBERP :0BJ HASDOTP OBJ 
END 


TO HASDOTP :WORD © 

IF EMPTYP :WORD COUTPUT "FALSE] 

IF ". = FIRST :WORD COUTPUT "'TRUE]) 
OUTPUT HASDOTP BUTFIRST :WORD 

END 


?PR DECIMALP 17 
FALSE 

?7PR DECIMALP 17. 
TRUE | 
?PR DECIMALP "'STOP. 
» FALSE 


The following procedure tells you whether the 
temperature is comfortable (between 50 and 90 
degrees Fahrenheit): 


TO COMFORT 

IF AND : TEMPERATURE > 50 : TEMPERATUR! 
E < 90 [PR "DELIGHTFUL] [PR “UNPLEAS ! 
ANT] 

END 
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NOT 


_27MAKE "TEMPERATURE 68 
‘2COMFORT = 


DELIGHTFUL 


‘NOT pred (operation) 


Outputs TRUE if pred is FALSE; outputs FALSE if | 


pred 1s TRUE. 
_ Examples: 


NOT EQUALP "A ’B 
outputs TRUE 

NOT EQUALP "A “A 
outputs FALSE 

NOT "A = FIRST "DOG 
outputs TRUE 


NOT "A. 


is an error. 
If WORDP were not a primitive, it could be defined 
as follows: 


TO WORDP :0BJ | 
OUTPUT NOT LISTP :OBJ 
END 


The following procedure tells whether its input is 


_a ‘“‘word that isn’t a number’: 


TO REALWORDP :0BJ 


OUTPUT AND WORDP :0BJ NOT NUMBERP :OBJ 
END | | | 


?PR REALWORDP HEADING 
FALSE 


?PR REALWORDP POS 
FALSE | 


?PR REALWORDP ''KANGAROO 
TRUE 


2?PR REALWORDP FIRST PEN 
TRUE 
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OR pred1 pred2 (operation) 

(oR pred1 pred2 pred3...) 

Outputs ‘ ALSE if all its inputs are false, TRUE 
otherwise. 


Examples: | 

OR "TRUE "TRUE 
outputs TRUE 

OR "TRUE "FALSE 
outputs TRUE 


OR "FALSE "FALSE 
outputs FALSE | 


(OR "FALSE "FALSE "FALSE "TRUE) 
outputs TRUE 


OR 57> 
is an error. 


The procedure MOUNTAINS draws ‘“‘mountains’”’: 


TO. MOUNTAINS 
SETPC 5 


RT 45 
ee?) ee 
. SUBMOUNTAIN 


END 


TO SUBMOUNTAIN 


FD 5 + RANDOM 19 

IF OR YCOR > 50 YCOR < ® [SETHEADING! 
180-HEADING] 

SUBMOUNTAIN 

END 


MOUNTAINS 
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Chapter 9 


BUTTONP 


 KEYP 


TO TURN 


The Outside World | 





This chapter describes primitives for communi- 


oo cating to the computer through the keyboard, for 


communicating through special-purpose periph- 


-erals such as game paddles, and for telling the 


computer to display information on the TV 
screen. | 


_ In addition to those described in this chapter, the 


primitives CURSOR and SETCURSOR are related to 
communication with the outside world. They are 
eee in Chapter 10. | 


BUTTONP padillenurnbee igperadon\: 


~Qutputs TRUE if button on specified paddle is is 


down, FALSE otherwise (paddlenumber must be @, 
1, Or 2; BUTTON? 3 is an error, since paddle #3 has 
no button). If nothing is plugged into the game — 
I/O socket, BUTTONP outputs TRUE. | 


KEYP (operation) 

Outputs TRUE if there is at least one en 
waiting to be read (i.e., one that has been typed on — 
the keyboard and not yet picked up by READ- 
CHAR or READLIST), FALSE if there isn’t any. 


Example: 


TO STEER. 


FO’? 


IF KEYP [TURN READCHAR]- 
STEER. bn os | 
END 


:DIR : 

IF :DIR = "R CRT 19] 
IF :OIR = "L (LT 190] 
END | 
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PADDLE 


PRINT | 
PR 





- PADDLE ndddlenuiiber (operation) 


Outputs a number between ® and 255, cepiesent: : 


ing the rotation of the dial on the arias paddle. 


Example: 


TO PORAW 
RIGHT (PADDLE ®) i 25. ‘6. 


_ FORWARD (PADDLE: /-25.6 


PDRAW 


END 


PRINT object icomnanay: short form: PR 

(PRINT object object2...) 5 
Prints its input(s) on the screen, followed bya ae 
TURN. The outermost brackets. of lists are not 
printed. Compare with TYPE and sHow. 


- Examples: 


?PRINT "A 
A 


PRINT. "A. PRINT — B cl. 


A. 


ABC 


2(PRINT "A CA B 1) 3 
AABC |. 
2PRINT C] 


? 


TO SeRRINTL MESSAGE : HOWMANY 


IF sHOWMANY < 1 [STOP] 
“PR :MESSAGE © 
PRO] 


REPRINT iets tiled 


END: 


: . 


-READCHAR 
RC 


\ 
\ 


RL 


-READLIST 


?REPRINT [TODAY IS FRIDAY!] 4 
TODAY IS FRIDAY! | 


TODAY IS FRIDAY! | 
TODAY IS FRIDAY! 


TODAY IS FRIDAY! — 


? 


READCHAR | ‘(operation) short form: kc | 
Outputs the first character typed. This character 


can even be a CTRL character, except for CTRL-G 


and CTRL-Z. If no character is waiting to be read, 


READCHAR waits until the user types ee | 
See also KEYP. 7 : 


Example: 


_ The following eae x¥zzy, lets the user run 
certain commands with a single keystroke (Fdoes _ 


FORWARD 5, and R does RIGHT 10—you. can add to 


the list). No RETURN is needed. 


TO XYzZY 
INTERPRET READCHAR 


XYZZY_ 
END 


TO INTERPRET :CHAR. - 


IF :CHAR = "F CFD 5] | 
IF :CHAR = "R CRT 10] 


END 


7 teanut (operation) dase form: BL 


aits for the user to type a line, and outputs that | 


| "line in the form of a list. If lines have already been 


typed, it outputs the first] line that has been typed 


but not read. 
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Examples: 


TO GET.USER- 
PRINT CWHAT IS YOUR NAME?) 


MAKE "USER: READLIST : 
_ PRINT SE CWELCOME TO LOGO, 1] :USER 


END 


2GET.USER. 


_ WHAT IS YOUR NAME? 
. LARRY 


WELCOME TO LOGO, LARRY 
27GET.USER © | 


WHAT IS Vali eM 
LARRY DAVIDSON 


WELCOME TO LOGO, LARRY DAVIDSON 
TO AGE 


PR CHOW.OLD ARE YOU7] 


PR MESSAGE FIRST RL 
END 


TO MESSAGE :AGE 


OP SE CNEXT YEAR YOU WILL BE] :AGE+1 
END | 


AGE 

‘HOW OLD ARE YOU? 

41 

NEXT YEAR YOU WILL BE 12 


2AGE 

HOW OLD ARE YOU? 

35. 

NEXT YEAR YOU WILL BE 36 


. SHOWobDject (command) | 
Prints object on the screen, followed by a RE- 
TURN. If object is a list it is printed with brackets 


around it. Compare with TYPE and PRINT. 


| Examples: 
2SHOW "A 


A | | 
?SHOW "A SHOW CA B C] 


A 
[A BC] 


100 


TYPE 


WAIT ~ 


TYPE object (command) 

(TYPE object1 object2 .. .) | 
Prints its input(s).on the screen, not followed by a 
RETURN. The outermost brackets of lists are not — 
printed. Compare with PRINT and SHOW. 
Examples: — 

?TYPE "'A | 

A?TYPE "A TYPE CA BC] 


AA B C?(TYPE "A [A B CJ) 
AA B C? 


The procedure PROMPT types a aneoneee followed 


by a space: 

TO PROMPT :MESSAGE 

TYPE :MESSAGE : 
TYPE '"\ (CTRL-Q followed by a space) 
END , | 


TO MOVE _ 


PROMPT CHOW MANY STEPS SHOULD I! 
TAKE? ] 

FD FIRST READLIST 

MOVE 

END 


MOVE 


HOW MANY STEPS SHOULD. I TAKE? 30 


HOW MANY STEPS SHOULD I TAKE? 37. 
HOW MANY STEPS SHOULD I TAKE? 2 
HOW MANY STEPS SHOULD I TAKE? 108 


WAIT n (command) 
Tells Logo to wait for n 60ths of a second. 


Example: - 
The prccedure REPORT keeps printing the turtle’s 


‘position as it moves randomly. It uses WAIT to. 


give the user time to read the position. 
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NP Pe ON oa Te ay Se RL, PY 
TO REPORT 
RT 19 * RANDOM 36 
FD 19 * RANDOM 10 
PR POS 
WAIT 100 
REPORT | 
END 


2CS HT. 

?REPORT 

0.90, 

46.9846 72.889 
-41.7752 43.3547. 
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Chapter 10 


CLEARTEXT 


CURSOR 





-— 


Text and Screen Commands 


The Apple has 24 lines of text on the screen, wit 
40 characters on each line. Your screen can be 
used entirely for text or entirely for graphics; the 
Apple also lets you use the top 20 lines for 
graphics and the bottom 4 for text at the same 
time. When you start up Logo, the entire screen is 
available for text. 


There are two ways to change the use of your 
screen: . 


. regular Logo commands, which can be typed at 


top level or inserted within procedures 
(FULLSCREEN, SPLITSCREEN; TEXTSCREEN); 


. special CTRL characters, which are read from the 


keyboard and obeyed almost immediately (while a 
procedure continues running); these may not be 
placed within procedures (CTRL-L, CTRL-S, 
CTRL-T). 


_ In addition to those described in this chapter, the 


primitives SCRUNCH and SETSCRUNCH are related 
to text and screen commands. They are described 
in Chapter 1. | 


CLEARTEXT (command) 

Clears the entire text screen and puts the cursor 
at the upper left corner of the text part of the 
screen. If you have been using the turtle screen, 
the cursor is on the fourth line from the bottom. 


CURSOR (operation) 

Outputs a list of the column and line numbers of 
the cursor position. The upper-left corner of the 
screen is [@ 0], and the upper right is [39 @]. See 
SETCURSOR. | 
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FULLSCREEN 


SETCURSOR | 





Example: 


The procedure TAB ‘‘tabs” over to the next tab 


stop after something is TyPEd. Tab stops are lo- 
cated in every eighth column. | 


TO TAB 

TYPE CHAR 32 CHAR 32 is space 

IF CREMAINDER FIRST CURSOR 8)>0 CTAB] 
END 


TO FLAVORCHART 

TYPE "FLAVOR TAB TAB PR "'RATING PR [] 
TYPE "CHOCOLATE TAB PR 97 | 

TYPE "STRAWBERRY TAB. PR 73 

TYPE "BANANA TAB TAB PR 19 


END 

?FLAVORCHART © 

FLAVOR RATING 
CHOCOLATE 97 
STRAWBERRY 73 
BANANA 19 


- FULLSCREEN (command) 


Devotes the entire screen to graphics. Only the 


turtle field shows; any text you type will be invisi- _ | 


ble to you, although Logo will still carry out your 
instructions. 


If Logo needs to type an error message while you 
are in FULLSCREEN, it automatically runs a 
SPLITSCREEN. 


SETCURSOR position (command) 

Sets the cursor to position. The first element of 
position is the column number; the second, the 
line number. Lines on the screen are numbered 
from @ to 23, character postions (columns) from @ 
to 39. 
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SPLITSCREEN _ 


_ . TEXTSCREEN — 


CTRL-L_ 


It is an error if the line number is not between 0 


and 23, or if the column number is not between 0 
and 39. If an element of position is a decimal num- 
ber, it is truncated to an integer. 


Examples: 


SETCURSOR [39 12] puts the cursor half-way down 


- the right edge of the screen. 


TO MOVECURSOR :X :Y 

SETCURSOR LIST (:X + FIRST CURSOR) C 
7¥ + LAST CURSOR) 

END 


?PRINT "A MOVECURSOR 2 5 PRINT’ "B 


| SPLITSCREEN - (command) 


Devotes the top 20 lines of the screen to the turtle 


field, with the bottom four lines reserved for text. 


TEXTSCREEN (command) | | 
Devotes the entire screen to text; the turtle field 
will be invisible to you until a graphics procedure 


is run. 


Special CTRL Characters 

CTRL-L (special character) 

Similar in effect to FULLSCREEN. May be typed at 
any time. 


This has no effect if you have used the editor or 
the file system after your most recent graphics in- 
struction, or if you haven't used graphics at all 


_ since starting up Logo. 107 


CTRL-S: 


CTRL-T 


Note that CTRL-L has a different meaning in the 
editor. See Chapter 6 (Defining and Editing with 


the Logo Editor). 


CTRL-S (special character) 


Similar in effect to SPLITSCREEN. May be are 
at any time. 


This has no effect if you have used the editor or 
the file system after your most recent graphics in- 
struction, or if you haven’t used graphics at all 
since starting up Logo. 


CTRL-T (special character) 


_ Similar in effect to TEXTSCREEN. May be typed at 


any time. 
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Chapter 11 


BURY © 


Workspace Management 





Your workspace comprises the variables, proce- 
dures, and properties that Logo knows about 
right now. It does not include primitives. 


‘There are several primitives that let you see what 
-you have in your workspace. You can also selec- 
‘tively erase variables and procedures from your 
workspace. 


A package is a collection of procedures and varia- 
bles. Many workspace. management. primitives 
can treat the entire package as a single unit. 


In addition to those described i in this chapter, the 
primitives NODES and PPS are related to work- 
space management. They are described i in Chap- 


~ ter 13. 


_ BURY package (command) 
_ Buries all procedures. and namies in spackage (see 


PACKAGE). Certain commands. (ERALL, ERNS, | 
ERPS, POALL, PONS, POPS, POTS, SAVE), when 
used without a package name input, act on every- 
thing in the workspace except procedures and 
variables in buried packages. BURY works by put- 
ting the BURY property with value. TRUE on the 


property list associated with the nameof — 


(see property list section i in Chapter: T9). 


Example: 

SAVE "GOODSTUFF saves the whole workspace i in 
the file GOODSTUFF.LOGO except proc cedur 
variables in buried packages. | 
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ERALL 


ERASE 


-ERNS 


ERALL (command) 

ERALL package 

ERALL packagelist a 
Erases all procedures and variables (in package or 
packagelist) from the workspace. See BURY for 
exceptions. 


ERASE name (command) short form: ER 
ERASE namelist. | 
Erases the named procedure(s) from the work- 
space. : | 


Examples: | 

ERASE "TRIANGLE erases the TRIANGLE proce- 
dure. 

ERASE [TRIANGLE SQUARE] erases the TRIANGLE 
and SQUARE procedures. 


ERN name (command) 

ERN namelist : 

(Stands for ‘‘ERase Name’’.) Erases’ the named 
variable(s) from the workspace. | 


Examples: 

ERN "LENGTH erases the LENGTH variable. 

ERN (LENGTH PI] erases the LENGTH and PI 
variables. 


ERNS (command) 

ERNS package 

ERNS packagelist , 
(Stands for ‘‘“ERase NameS”’.) Erases all variables 
(in package or packagelist) from the workspace. 
See BURY for exceptions. 
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ERPS 


PACKAGE 


PKGALL 


PO 





ERPS (command) 

ERPS package 

ERPS packagelist _ 

(Stands for ““ERase Procedures ’’.) Erases all proce- 


_ dures (in package or packagelist) from the work- 


space. See BURY for exceptions. 


PACKAGE package name (command) 

PACKAGE package namelist 

Puts each named procedure in package. It does.so 
by putting the PROCPKG property with value 
package on the property list associated with the 
name of each procedure (see property list section 
in Chapter 13). © - 


Example: 
PACKAGE "SHAPES [TRIANGLE SQUARE] 


puts TRIANGLE and SQUARE in the package 
SHAPES. 


PKGALL package (command) 
Puts into package all procedures and variables 
that are not already in packages. See PACKAGE. 


PO name (command) 

PO namelist | 

(Stands for ‘‘print out’’.) Prints the definitions of 
the named procedure(s). 


Examples: 


?7PO "LENGTH. 

TO LENGTH :OBJ a 

IF EMPTYP :OBJ COP A; {OP 1 + LENGTH! 
BF :0BJ] 

END- 

?PO0 CLENGTH GREET] 


TO LENGTH :OBJ 


IF EMPTYP :OBJ [OP 0] (OP 1 + LENGTH! 
BF :0BJ] . 
END 
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POALL 


TO GREET | 
PR [GOOD MORNING. HOW ARE YOU TODAY?) 
END Oe | 


POALL (command) 

POALL package — 

POALL packagelist 

(Stands for ‘‘Print out ALL’’.) Prints the definition. 
of every procedure and the value of every variable 
(in package or packagelist). See BURY for excep- 
tions. : 
Example: 

?POALL | | 

TO POLY :SIDE :ANGLE 


FD :SIDE 
RT :ANGLE 


POLY. :SIDE :ANGLE 


END 


TO LENGTH :0BJ | | ; 
IF EMPTYP :0BJ COP @] [OP 1 + LENGTH! 


BF :0BJ] 
END : 
TO GREET 


PR [GOOD MORNING. HOW ARE YOU TODAY?] 
END 


TO SPI :SIDE :ANGLE :INC 
FD :SIDE 
RT :ANGLE 


SPI :SIDE + :INC ZANGLE :INC 


END 

ANIMAL IS AARDVARK 
LENGTH IS 3.98 
MYNAME IS LARRY 


POLY, SPI, and LENGTH are in package SHAPES. 
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PONS — 


~ POPS. 


?7POALL "SHAPES 
TO POLY :SIDE :ANGLE 


“FD :SIDE 

"RT :ANGLE. 
POLY :SIDE :ANGLE 
END | 


TO SPI SIDE :ANGLE :INC 


FD :SIDE 


RT :ANGLE 
SPI :SIDE + :INC :ANGLE :INC 
END — , 


LENGTH IS 3.98 


PONS (command) 


PONS package 
PONS packagelist 


_ (Stands for “Print out Names”’,) Prints the name | 


and value of every variable (in package or pack- 


_ agelist). See BURY for exceptions. 


Example: _ 


~ 2PONS "LANG 


FIs 3 , 
LIST IS CAB CJ 


POPS (command) 

POPS package 

POPS packagelist 

(Stands for “Print Out Procedures’’.) Prints the 
definition of every procedure (in package or pack- 
agelist). See BURY for exceptions. | : 


Example: 


?POPS 

TO POLY :SIDE :ANGLE 
FO :SIDE | 

RT :ANGLE 


ROLY :SIDE. : ANGLE 


END 
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POTS. 


‘UNBURY 


TO SPI :SIDE :ANGLE : INC 

FD :SIDE Ae | 
RT :ANGLE 

SPI :SIDE + :INC :ANGLE :INC 
END | | 7 


POTS (command) - 
POTS package 


- POTS packagelist 


(Stands for ‘Print out Titles”.) Prints the title line 
of every procedure (in package or packagelist). 
See BURY for exceptions. : | 


Examples: 


?POTS 

TO POLY :SIDE :ANGLE 

TO LENGTH :OBJ | 

TO GREET | ; 
TO SPI :SIDE :ANGLE :INC 


-2POTS "SHAPES 
TO POLY :SIDE :ANGLE 
TO SPI :SIDE :ANGLE :INC 


?POTS CSHAPES LANG] © 

TO POLY :SIDE :ANGLE ~ 
TO SPI :SIDE :ANGLE :INC 
TO LENGTH :OBJ 


UNBURY package (command) 
Unburies all procedures and names in package. 
(See BURY.) - | 
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Cnapter 12 


CATALOG 


DISK 


ERASEFILE 


LOAD 


fics 





You can store your workspace on a diskette. The 
information is organized in files; you decide what 
should go into each file*. 


Note that SAVE and LOAD can take either one or 
two inputs. If you are using one of them with only: 
one input, you should enclose the expression in 
parentheses if there is another command on the 
same line following it. 


CATALOG (command) 
Prints on the screen the names of all the files on 
the disk. 


DISK (operation) 

Outputs a list of three numbers: the disk drive 
number, the slot number of the disk drive, and the 
volume number of the disk which you have most 


recently used for CATALOG or set with SETDISK. 


For more information, see the Apple DOS. 
Manual. 


_ ERASEFILE file (command) 


Erases the file named file.LOGO from the disk. It 
is an error if there is no such file. 


_ Example: 


7ERASEFILE "BEAR 
erases file named BEAR.LOGO 


LOAD file (command) 

LOAD file package 

Loads the contents of file.LOGO into the work- 
space, as if typed in directly. It is an errer if file 
doesn’t exist. CTRL-G does not interrupt LOAD. 


All variables and procedures go into the packages 
they came from, unless LOAD has a second input. 
*When you use a file command, the graphics screen or edit 


buffer is erased. 119 


SAVE _ 


SETDISK 





If there is a second input, it specifies the package 


that everything goes into. If anything in the file is 
in a buried package, it is buried after being loaded | 
into the workspace. 


Examples: 

27LOAD "BEAR 

(everything in the file named BEAR.LOGO is read 
into the workspace; each variable or procedure is 
in the package it came from) 

27LOAD ”"POLYS "SHAPES | 

(everything in the file named POLYS.LOGO is read 
into the workspace in package SHAPES) 


_ SAVE file (command) 


SAVE file. package 

SAVE file packagelist 
Creates a file named file.LOGO, and saves in it all 
procedures and variables in the named 
package(s), even if they are buried, including their 
properties. If there is no second input, the entire 
workspace is saved, except buried packages. If 
the file already exists, you must first erase it with 
ERASEFILE; then SAVE can re-use that filename. 


File names longer than thirty characters are trun- 
cated to thirty characters. . 


SETDISK drive (command) 

SETDISK drive slot 

SETDISK drive slot volume 

Tells Logo to set the disk drive, slot for the disk 
drive, and disk volume to the numbers given as 
inputs. The volume, an integer from 1 through 
254, can be used to identify a diskette and to keep 
yourself from accidentally writing on the wrong 
one. : 
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Chapter 13 


Advanced or Rarely Used Primitives 





_ This chapter contains a wide variety of primitives 
that are either advanced or rarely used (c: both). 


It is divided into four sections: 


. property lists 
. error handling, CATCH, and THROW : 


: procedure definition and redefinition: further 


techniques 7 


miscellaneous primitives _. 





Property Lists 


_ Any Logo word can have a property list asso- 
ciated with it. A property list consists of an even 


number of elements. Each pair of elements con- 
sists of the name of a property (such as I.D.) and- 


its value (such as FREDDY). For example: 


[I.D. FREDDY COLOR GREEN LEGS 4] _ 


Note that a property list has the form 
[PROP1 VALI PROP2 VAL2...]. You can manipulate. 
property lists using the primitives in this section. 


In addition, there are five other primitives which 
have effects or side effects that involve property 
lists: BURY, UNBURY, PACKAGE, PKGALL, LOAD. 


BURY gives a package the BURY property with 
value TRUE. UNBURY removes the BURY property 
from the package. These primitives are described 


_ in Chapter 11 (Workspace Management). 


PACKAGE package name(s) gives the named pro- 
cedures the property PROCPKG with the value 


package. PKGALL package gives all unpackaged 


a Se IR lO SW oe ee WN SR AO a eR A RE SRE eed) 


GPROP 


PLIST 


PPROP 


procedures the property PROCPKG with the value 
package; it also gives all unpackaged variables 
the property VALPKG with the value package. 
These primitives also are described in Chapter 11 
(Workspace Management). 


LOAD file package gives the names of the proce- 


_ dures in the file the PROCPKG property with value. 


package; it also gives the names of variables in 
the file the VALPKG property with value package. 
This primitive is described in Chapter 12 (Files). 


GPROP name prop (operation) 
(Stands for “Get PROPerty’’.) Outputs the value of 
the prop property of name; outputs the empty list 


if there is no such property. 
Example: 

?SHOW GPROP "FROG '"'I.D. 
FREODY 

?SHOW GPROP "AIDS "ANY 

] : | 
?SHOW GPROP "'.SYSTEM “BURY 
TRUE 


PLIST name (operation) 
Outputs the property list associated with name. 


_ This is a list of property names paired with their 
values, in the form [PROP1 VAL] PROP2 VAL2...]._ 


Examples: 


?SHOW PLIST ‘'FROG 

[I.D. FREDDY COLOR GREEN LEGS 4] 
?SHOW PLIST "'.SYSTEM 

CBURY TRUE] | 


PPROP name prop object (command) | 
(Stands for ‘‘Put PRoPerty’’.) Gives name the 
property prop with value object. (Note that 
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PPS 


REMPROP 


‘See also PPROP and GPROP. 


ERALL, which erases procedure definitions and - 
variables, does not reclaim the space used by 
properties created by PPROP. Use REMPROP to 
erase properties. ) 

Example: _ 

2SHOW PLIST "BIRD 


{1.D. PHOENIX LEGS 2] 


2PPROP "BIRD "SIZE CVERY BIG) 
?SHOW PLIST "BIRD 


- [SIZE [VERY BIG] I.0. PHOENIX LEGS 2] 


-PPS- (command) 


PPS package 
PPS packagelist | 
(Stands for “print properties’’.) Prints the prop- 
erty list(s) of everything in the named package(s). 
With no input, prints the property lists of every- 
thing in the workspace. | 


Example: 
2PPS "CHARACTERS 


BIRD'S I.D. IS PHOENIX. 


BIRD'S COLOR IS YELLOW 
BIRD'S LEGS IS 2 

BIRD'S SIZE IS [VERY BIG] 
FROG'S I.0. IS FREDDY 
FROG'S COLOR IS GREEN. 


FROG'S LEGS IS 4 


REMPROP name prop (command) 


_ Removes property pair prop from the property — 
~ list of name. 


Example: 


?SHOW PLIST "SHIP 

[SPEED 50 HEADING 48 COLOR GREEN] 
?REMPROP "SHIP "HEADING 

?SHOW PLIST "SHIP 

[SPEED 50 COLOR GREEN] 


125 


CATCH 





Error Handling, CATCH, and THROW 
CATCH name instructionlist (command) 


- Runs instructionlist. If a THROW name is called 


while :nstructionlist is run, control returns to the 


CATCH. The name is used ‘to match up a THROW > 


vith aCATCH. For instance, CATCH “CHAIR [what- 
ever] catches a THROW "CHAIR but not a THROW 
"TABLE. | 


There are two special cases. CATCH “TRUE catches 
any THROW; CATCH ”ERROR catches an error 
which would otherwise print an error message 
and return to toplevel. If an error is caught, the 
message which Logo would normally print isn’t 
printed. See ERROR to find out how to tell what 
the error was. Note: CTRL-G does not work within 
a CATCH "ERROR, but THROW ”TOPLEVEL does. 


Examples: 


. The procedure SNAKE reads numbers typed in by 


the user, and uses them as distances to move the 
turtle. It turns the turtle between moves. If the 
user types something other than a number, the 
program (using its READNUM subprocedure) 
prints an appropriate message and continues 
working. 


TO SNAKE 
CATCH "NOTNUM CSLITHER] 


SNAKE 


END 


TO SLITHER 

PR CTYPE A NUMBER, PLEASE. ] 
FD READNUM 

RT 10 | 

END 
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ERROR 


TO READNUM - 


LOCAL "LINE 


MAKE "LINE READLIST 


IF NOT NUMBERP FIRST :LINE CPR [CTHAT! 


"S NOT A NUMBER.) THROW "NOTNUM] 
IF NOT EMPTYP BF :LINE CPR CONLY ONE! 
NUMBER, PLEASE!] THROW ''NOTNUM] 


OUTPUT FIRST :LINE (Notice that sTOP 
END | | _ would have returned 
_ to SLITHER, not to SNAKE) 


2. The procedure DOIT runs instructions typed in by 
- the user. When an error occurs, Logo does not 


type the standard error message and does not re- 
turn to toplevel; instead, it types THAT STATE- 
MENT IS INCORRECT and lets the user continue to 
type in instructions. 

TO. DOIT. 


CATCH. "ERROR [DOIT1] 
PR PUNT. ST ATEMER? Is INCORRECT] 


DOIT 


END 


TO DOIT1 
RUN READLIST 


DOIT1 
END 


?D0IT 
PR 3 + 3 
8 


-PRI2 = 7 


THAT STATEMENT IS INCORRECT 


_ PR te =, 


5 , 
THROW "TOPLEVEL 
> | 


ERROR (operation) | 
Outputs a six-element list containing information 


about the most recent error which has not had a 


message printed or output by ERROR (or the 


empty list if there was no such error): 
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EET oy 


® a unique number identifying the error (the num- 


THROW 





bers are listed in Appendix EF); 
a riessage explaining the error; 


t! e name of the procedure within which the error 
cccurred (the empty list, if top level); 


the line where the error occurred; 
the name of the primitive causing the error, if any; 
the object causing the error, if any. 


Logo runs THROW "ERROR whenever an error oc- 
curs, unless :ERRACT is TRUE. Control passes to 
toplevel unless a CATCH "ERROR has been run. 
When an error is caught in this way no error mes- 
sage is printed, and you can design your own. 


If :ERRACT is TRUE, an error Causes a pause (see 
PAUSE). 


Example: 


TO SAFESQUARE :SIDE 

CATCH "ERROR CREPEAT 4 [CFD :SIDE RT! 
90)] | 

PR ERROR 

END 


?SAFESQUARE "'SIXINCHES | 
41 CFORWARD DOESN'T LIKE SIXINCHES A! 


~S INPUT] SAFESQUARE [CATCH "ERROR [R'! 


EPEAT 4 CFD :SIDE RT 90]]] FORWARD S! 
IXINCHES | 


THROW name (command) 

This command is meaningful only within the 
range of aCATCH name command. See CATCH. It is 
an error if no corresponding CATCH name is found. 
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COPYDEF 


DEFINE 


THROW "TOPLEVEL returns control to toplevel. 
(Contrast with STOP.) 


Procedure definition and redefinition: further 
techniques 

Procedures can be represented as lists as shown in 
the examples below. You can manipulate these list 
representations. 


COPYDEF newname name (command) 

Copies the definition of name, making it the defi- 
nition of newname as well. The redefinition is not 
part of your workspace, and cannot be SAVEd on a 


7 file. 


Examples: 
COPYDEF "NEWSQUARE "SQUARE gives 
NEWSQUARE the same definition as SQUARE. 


COPYDEF "F "FORWARD gives F the same defini- 
tion aS FORWARD. 


- Neither name nor newname may be names of 


Logo primitives unless :REDEFP is TRUE. If 
:REDEFP 1S TRUE and name is a primitive, then 
newname is a primitive as well. 


DEFINE name list (command) 

DEFINE "SQUARE [(SIDE] ERG e a 4 Cro! 
sSIDE RT 9031) 

defines the same procedure as | 


TO SQUARE. :SIDE 
REPEAT 4 [CFD :SIDE RT 90) 
END 


DEFINE makes list the definition of the procedure. 
name. The first element of list is a list of the in- 


- puts to name, with no dots (:) before their names. 


129| 





_ If name has no inputs, this must be the empty 
list. Each subsequent element is a list consisting 
of one line of the procedure definition. (This list 
does not contain END, since END is not part of the 
procedure definition.) | 


The second input to DEFINE has the s same form as 
the output from TEXT. Note that name cannot be 
the name of a Logo primitive unless -REDEFP iS 
TRUE (see gi sat J). 


LEARN is a program that lets you type successive 
lines defining a procedure that has no inputs. 

Each time you press RETURN, Logo runs the in- 
- struction as well as making it part of the proce- 
_ dure definition. By typing ERASE, you can erase 
_ the previous line. 


- TO LEARN 7 
MAKE "PRO [J] 
READLINES 
PR [DO YOU WANT TO SAVE THIS AS THE. 
DEFINITION OF A PROCEDURE?7] 
TEST FIRST FIRST READLIST = "'Y 
IFT CTYPE CPROCEDURE NAME?] DEFINE F! 
IRST READLIST :PRO] 
END 


TO READLINES a4 

MAKE "NEXTLINE READLIST 

IF :NEXTLINE = CEND] [STOP] 

TEST :NEXTLINE = [ERASE] 

IFTRUE CCANCEL] | 

IFFALSE CRUN :NEXTLINE MAKE "PRO LPU! 
T :NEXTLINE :PRO] 

READLINES 

END 


TO CANCEL | 

PR SE CI WILL ERASE LINE] LAST =:PRO 
MAKE ''PRO BL >PRO 7 

END | 
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-PRIMITIVEP 


TEXT 


* LEARN 

FD 28 

RT 36. 

ERASE 

I WILL ERASE LINE RT 36 

RT 72 

END 7 

DO YOU WANT TO SAVE THIS AS THE DEFI! 


NITION OF A PROCEDURE? 


YES 
PROCEDURE NAME? LEG 


—2P0 "LEG 


TO LEG 
FD 29 
RT 72 
END . 





LEG 


PRIMITIVEP | name (operation) | 
Outputs TRUE if name is the name of a primitive, | 
FALSE otherwise. 


Examples: 


_ PRIMITIVEP "FORWARD outputs TRUE 


PRIMITIVEP "SQUARE cutputs FALSE 


TEXT name ieoceaiion: | 
Outputs the definition of name as a list of lists, 


suitable for input to DE FINE. 


Example: 


? SHOW TEXT "POLY , . | 
COESIDE ANGLE] CFD :SIDE RT sANGLE] C! 
POLY :SIDE > ANGLE]] 7 3 


The first element of the output is a list of the 
names of the procedure’s inputs. The rest of the 


_ elements are lists; each one is a line in the proce- 
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dure definition. (If the procedure name is unde- 
fined, TEXT outputs the empty list.) The example 
above corresponds to: | 

?P0 "POLY 

TO POLY :SIPE :ANGLE 

FD :SIDE RT :ANGLE 


POLY :SIDE :ANGLE 
END 


TEXT can be used in conjunction with DEFINE to 
create procedures that modify other procedures. 
For example: _ 

2?PO "SQUARE 


TO SQUARE 


REPEAT 4 [FD 30 RT 90) 
END 


2DEFINE "SQUARE.WITH. TAIL LPUT [CFD 1! 
00) TEXT "SQUARE | 


2PO_ "SQUARE .WITH.TAIL 
TO SQUARE .WITH.TATL 


REPEAT 4 CFD 35@ RT 901 
FD 190 | 


END 
_ SQUARE.WITH.TAIL 


_ Complex example: 

The procedure STEP modifies the definition of a 
procedure to make it run one line at a time; after 
each line is run, Logo waits for you to type RE- 
TURN before it proceeds. UNSTEP restores the 
original procedure definition. 
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The Program: 


TO STEP :PRO 

COPYDEF WORD ''. :PRO :PRO 

MAKE "OLDDEF TEXT :PRO 

MAKE "'NEWDEF (LIST FIRST :OLDDEF) , 

MAKE "NEWDEF LPUT (LIST "PRINT CLIST! 
"ENTERING :PRO)) :NEWDEF | 
SHOWINPUTS FIRST :OLDDEF 
SHOWLINES BF :OLDDEF | 
DEFINE :PRO :NEWDEF 


~ END 


TO IGNORE :INPUT 
END 


TO STEPPER 

TYPE " 

IGNORE READLIST 
END 


TO SHOWLINES :INSTRUCTIONS 

IF EMPTYP : INSTRUCTIONS [STOP] 

MAKE "NEWDEF LPUT (LIST "TYPE FIRST | 
s INSTRUCTIONS) :NEWDEF 

MAKE "NEWDEF LPUT [STEPPER] :NEWDEF. 
MAKE "'NEWDEF LPUT FIRST : INSTRUCTION! 
S :NEWDEF — | } 
SHOWLINES BF : INSTRUCTIONS 

END 7 


TO SHOWINPUTS :ARGLIST | 

IF EMPTYP :ARGLIST CSTOP]) | a 
MAKE "NEWDEF LPUT (LIST "PRINT "SENT! 
ENCE CLIST CFIRST sARELIST) '"IS) CWO! 
RD ''s FIRST :ARGLIST)) :NEWDEF | 
SHOWINPUTS BF :ARGLIST | 

END. 


TO UNSTEP :PRO 

COPYDEF :PRO WORD ''. :PRO 
ERASE WORD ''. :PRO = 
END — 
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Using the Program: 


TO TRIANGLE :WORD ~ 


IF EMPTYP WORD peers 
PR :WORD 

TRIANGLE BL : WORD 

END : 


OSTEP “TRIANGLE 
7TRIANGLE “IT - 
ENTERING TRIANGLE 


WORD IS IT . 
IF EMPT.YP WORD [STOP]. 

You press RETURN 
PR : WORD _ You press RETURN 


IT 

TRIANGLE BL WORD '. You press RETURN 
ENTERING TRIANGLE 

WORD IS I- | 

TF EMPTYP :WORD- [STOP] 


You press RETURN 


PR. =WORD | | You press RETURN 


I _ 


TRIANGLE BL :WORD —Youpress xevunn 
ENTERING TRIANGLE. 
WORD IS -: 


IF. EMPTYP >WORD [STOP] 
care 


Miscellaneous primitives | 
‘DEFINEDP word | (operation) 
_; Outputs TRUE if word is the name of a 2 procedure, 
” FALSE otherwise. 


GO sen (command) | 
Transfers control to the instruction following 
LABEL word in 1 the same procedure. 
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LABEL 


NODES 


RECYCLE 


REPARSE 


Example: | 


TO COUNTDOWN N 
LABEL ''LOOP 

IF :N < @ CSTOP] © 
PRINT :N : 

MAKE "'N :N - 1 

GO "LOOP 

END 


LABEL name (command) 


GO name passes control to the instruction follow- 
ing LABEL name. ae GO. 


NODES (operation) | | 
Outputs the number of free nodes. This gives you _ 
an idea of how much space you have in your work- 
space for procedures, variables, and the running 
of procedures. NODES is most useful if run imme 
diately after RECYCLE. See Appendix H (Space). 


RECYCLE (command) 


Performs a garbage collection, freeing up as many 


nodes as possible. (When you don’t use RECYCLE, 
garbage collections happen automatically when- 
ever necessary, but each one takes at least one sec- 
ond; running RECYCLE before a time-dependent 
activity prevents the automatic garbage collector 
from slowing things down at an awkward time.) 
See NODES. See Appendix H (Space). 


REPARSE. (command) 

When you define or erase a procedure, Logo may 
have to change the interpretation of many other 
procedures in your workspace. Like garbage col- 
lection (see REG“CLE above), this reparsing hap- 
pens automatically, so you don’t have to worry 
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-.BPT 


CONTENTS | 


DEPOSIT 


) 
EXAMINE 





about it. But, also like garbage collection, the au- 


tomatic reparsing may slow down your program 
at an awkward time. The REPARSE command can 


be used to make all needed reparsing happen right 
away. After you use it, you are safe from further 
reparsing at least until the next time you define or 
erase a procedure. 


PT (command) | 

Enters the Apple monitor. Logo may be resumed 
by typing 803G followed by RETURN. The name of 
this primitive starts with a dot to warn you that it 


' is dangerous. You should save your work before 


you use it. 


CONTENTS (operation) 


Outputs a list of all of the objects that Logo 


‘knows about’’; this includes your variables and 
procedures, che Logo primitives, most of the 
things you’ve typed in, and some other words. 
-CONTENTS can use up a lot of node space. The 
name of this primitive starts with a dot to warn 
you that it is dangerous. You should save your 


work before you use it. 


DEPOSIT na (command) 


_ Writes a into machine address n (decimal). The 


name of this primitive starts with a dot to warn 
you that it is dangerous. You should save your 
work before you use it. 


EXAMINE Ju (operation) 

Outputs the contents of machine address obj (dec- 
imal), if obj is anumber. Otherwise outputs the ad- 
dress of the first node of 067. The name of this 


™ 


PRINTER 


primitive starts with a dot to warn you that it is 
dangerous. You should save your work before you 
use it. 


PRINTER 2 (command) 

Tells Logo that any information subsequently dis- 
played on the screen is to be printed on the 
printer, If 7 is in the range 1 through 7, then 7 is 
the number of the slot which the printer is 
plugged into. (Warning: if there is no printer 
plugged into slot n, Logo crashes.) If n is in the 
range 9 through 15, then 7-8 is the number of the 
slot which the printer is plugged into, and the text 
is also copied onto the screen as it is printed. 
Whatever the value of n is, error messages are al- 
ways copied onto the screen. 


The name of this primitive starts with a dot to 
warn you that it is dangerous. You should save 
your work before you use it. | 


If n is , printing returns to the screen only. If n is 
6, the Apple boots Logo from the disk. 


Example: | 
The following sequence of instructions prints the 
definitions of all procedures in the workspace on 


_ the printer plugged into slot #7. It displays them 
- onthe screen as well. When it is done, printing re- 


turns to the screen only. 


?.PRINTER 15 
?POPS 


2. PRINTER ® 
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Appendix A 


Procedures and 
Their Inputs 


Turtle Graphics 
BACK, BK distance 
BACKGROUND, BG 
CLEAN 
CLEARSCREEN, CS 
DOT position 
FENCE 

FORWARD, FD distance 
HEADING 
HIDETURTLE, HT 
HOME 

LEFT, LT degrees 
PEN 

PENCOLOR, PC 
PENDOWN, PD 
PENERASE, PE 
PENREVERSE, PX 
PENUP, PU 

POS 

RIGHT, RT. degrees 
SCRUNCH 
SETBG colornumber 
SETHEADING, SETH degrees 
SETPC colernumber 
SETPEN pair 
SETPOS position 
SETSCRUNCH n 
SETX x 

SETY y 

SHOWNP 
SHOWTURTLE, ST 
TOWARDS position 
WINDOW 

WRAP 

XCOR 

YCOR 


Words and Lists 
ASCII char 
BUTFIRST, BF object 
BUTLAST, BL object 
CHAR Nn . 
COUNT list 

~ EMPTYP object 
EQUALP object1 object2 
FIRST object 

FPUT object list 
ITEM n object 


Logo Vocabulary 





Note: Parentheses around an input indicate that the input is 
optional. A number sign (#) indicates a procedure which can 
take any number of inp«ts; if you give it other than the number 
indicated, you must enclose the entire expression in paren- 


theses. 


LAST object 
# LIST objectl object2 
LISTP object 
LPUT object list 
MEMBERP object list 
NUMBERP object 
# SENTENCE, SE object1 object2 
# WORD word! word2 
WORDP object _ 
objectl = object2 


Variables 

# LOCAL name 
MAKE name object 
NAME object name 
NAMEP word 
THING name 


Arithmetic Operations 
ARCTAN n 
COS degrees 
INT n 

# PRODUCT a b 
QUOTIENT a b 
RANDOM n 
REMAINDER a b 
RERANDOM 
ROUND n. 
SIN degrees 
SQRT a 

*#SUM ab 
at+.b 
a—b 
a*b 
a/b 
a<b 
a=b 
a>b 


Defining and Editing 
EDIT, ED (name(s) 
EDNS (packagellist)) 
TO procname (inputs) - 


Conditionals and Flow 
of Control 
Co (object) 
IF pred list1 (list2) 
IFFALSE, IFF list 
IFTRUE, IFT list 
OUTPUT, OP object 
PAUSE 
REPEAT n list 
RUN list 
STOP 
TEST pred 


Logical Operations 
“ AND pred1 pred2 
NOT pred 
“OR pred1 pred2 


The Outside World 

BUTTONP paddlenumber 

KEYP 

PADDLE paddlenumber 
#PRINT, PR object 

-READCHAR, RC 

READLIST, RL 

SHOW object 


"TYPE object 


WAIT n 


Text and Screen Commands 
CLEARTEXT 

CURSOR 

FULLSCREEN 

SETCURSOR position 
SPLITSCREEN 
TEXTSCREEN 


Workspace Management 
BURY package 

ERALL (packageflist)) 
ERASE, ER name(s) 

ERN name(s) 

ERNS (package(list)) 
ERPS (packagellist)) 
PACKAGE package name(s) 
PKGALL package 

PO name(s) 

POALL (package(list)) 
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PONS (packagellist)i: 
POPS (packagellist)) 
POTS (packagellist)) 
UNBURY package 


Files 

CATALOG 

DISK 

ERASE?FrILE name 

LOAD file (package) 

SAVE file (packageflist)) 
SETDISK drive (slot) (vol) 


Property lists 

GPROP name prop 
PLIST name 

PPROP name prop object 
PPS (package(list)) 
REMPROP name prop 


Error handling, catcu. 
and THROW 

CATCH name list 
ERROR 

THROW name 


Further procedure 

- definition and 
redefinition 

“COPYDEF newname name 
DEFINE procname list 
PRIMITIVEP name 

TEXT procname 


Miscellaneous Procedures 
DEFINEDP word 
GO word 

LABEL word 
NODES 

_ RECYCLE | 
REPARSE 

BPT 

CONTENTS 
DEPOSIT ma 
EXAMINE n 
PRINTER slot 


Editing Commands | 


*¢ Or DELETE 
te ee 
*CTRL-A 
*CTRL-B 
CTRL-C 
*CTRL-D 
*CTRL-E 
*CTRL-F 


-*CTRL-H 


*CTRL-K 
CTRL-L 
*CTRL-M 
CTRL-N 
CTRL-O 
CTRL-P 
*CTRL-U 
CTRL-V 
*CTRL-Y 
ESC V 

ESC < 
ESC > 


Magic Words 


END 
ERRACT 
ERROR 
FALSE 
PROCPKG 
REDEFP 
STARTUP 
TOPLEVEL 
TRUE 
VALPKG 
XYZZY 
SYSTEM 


Special Characters | 


CTRL-G 
CTRL-Q 
CTRL-S 
CTRL-T 
CTRL-w 
CTRL-Z 


An asterisk (*) indicates an editing command which works 
both inside and outside of the editor. 
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Primitives (Prefix Form) 

Note: Parentheses around an apiit indicate that 
the input is optional. A number sign (#) indicates a 
procedure which can take any number of inputs; if 
you give it other than the number indicated, the 
entire expression must be enclosed in paren- 





theses. 
‘AND pred1 pred2 Outputs TRUE if all its inputs are 
| | TRUE. 
ARCTAN n | Outputs the arctangent of n. 
ASCIi char Outputs ascil code for char. 
BACK, BK n _ Moves turtle n steps back. 
BACKGROUND, BG Outputs number representing 
| _ background color. 
BURY pkg 7 —- procedures contained in 
: | PRE. 
BUTFIRST, BF obj | - a a all but first element of 
_ OOF 
BUTLAST, BL obj Outputs all but last slecnent of obj. 
BUTTONP nr 3 Outputs TRUE if button on paddle 
_ n is down. | 
CATALOG Displays names of all files on disk- 
_ ett 

CATCH name list Runs list; returns when THROW 

name is run. 7 
CHAR N Outputs character whose ASCII 

| codeisn 

CLEAN | _Erases graphics screen without 

affecting turtle. 
CLEARSCREEN,CS Erases screen, moves turtle to 

, [0 0], sets heading to 0. 
CLEARTEXT - Clears text screen. 
co | Resumes a procedure after a 
| pause. 

COPYDEF newname name _ Copies definition of name onto 

newname. 
COS n - Outputs cosine of n degrees. oe 


COUNT list 


CURSOR 
DEFINE name list 
DEFINEDP word 


DISK 


DOT pos 
EDIT, ED (name(s)) 


EDNS (packagellist)) 
EMPTYP obj 

EQUALP obj1 obj2 
ERALL (package(list)) 


ERASE name(s) 
ERASEFILE name 
ERN name(s) 

ERNS (package(list)). 
ERPS (package(list)) 


ERROR 
FENCE 


“IRST 0b] 
FORWARD, FD n 
FPUT obj list 


FULLSCREEN 

GO word 

GPROP name prop 
HEADING 
HIDETURTLE, HT 





Outputs the number of elements 
in list. 
Outputs position of cursor. 
Makes list the definition of name. 
Outputs TRUE if word is the name 
of a procedure. 
Outputs information about disk 
and disk drive. 
Puts a dot at pos. | 
Starts Logo editor (containing 
named procedure(s)). 
Starts Logo editor (containing var- 
iables in package(list)). 
Outputs TRUE if obj is empty list 
or empty word. 
Outputs TRUE if its inputs are 
_ equal. 
Erases everything (in 
package(list)). 
Erases named procedures. 
Erases file name.LOGO from disk. 
Erases all named variables. 
Erases variables (in package(list)). 
Erases procedures (in 
packagellist)). 
Outputs list of information about 
most recent error. 


Fences turtle within edges of 
screen. | 


Outputs first element of 06j. 
Moves turtle n steps forward. 


Outputs list formed by putting obj 
on front of list. 


Devotes entire screen to graphics. 
Transfers control to LABEL word. 
Outputs prop property of name. 
Outputs turtle’s heading. 
Makes turtle invisible. 
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HOME 

IF pred listl (list2) 
UFFALSE IFF list 
IFTRUE, IFT list 


INT Nn 
ITEM n obj 
KEYP 


LABEL word 
LAST obj 
LEFT, LT 7 


"LIST obj1 obj2 
LISTP 0bj | 
LOAD name (pkg) 


"LOCAL name 
LPUT oO] list 


MAKE name obj 
MEMBERP ODj list 


. NAME obj name 
NAMEP word 


NODES _ 

NOT pred 
NUMBERP obj 
‘OR predl pred2 


OUTPUT, OP obj 
PACKAGE package name(s) 


PADDLE n 


LEE EI ET ATTA ET aE RTE AE TIE DN EE a EL EE 


Moves turtle to [0 0] and sets head- 
ing to 0 

If pred is TRUE, runs list1, other- 
wise list2Z. 


Runs list if most recent TEST was 
FALSE. 


Runs list if most recent TEST was 
TRUE. 


Outputs integer portion of n. 


Outputs nth element of obj. 


Outputs TRUE if a key has been 
typed but not yet read. 


Labels line for use by Go. 
Outputs last element of obj. 
Turns turtle n degrees left, i.e. 
counterclockwise. 
Outputs list of its inputs. 
Outputs TRUE if obj is a list. 
Loads file name.LOGO into work- 
space (in package pkg). 
Makes name local. 
Outputs list formed by putting obj 
on end of list. 
Makes name refer to obj. 
Outputs TRUE it obj is an element 
of list. | 
Makes obj the value of name. 
Outputs TRUE if word refers to 
any object. 
Outputs number of free nodes. 
Outputs TRUE if pred is FALSE: 
Outputs TRUE if obj is a number. 
Outputs TRUE if any its inputs are 
TRUE. | 
Returns control to caller, with obj 
as output. 
Puts named procedures in 
package. 
Outputs rotation of dial on paddle n. 
145} 
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PAUSE 
PEN 


PENCOLOR, PC 


PENDOWN, PD 
PENERASE, PE 
PENREVERSE, PX 
PENUP, PU 

PKGALL package — 


PLIST name 
~ PO name(s) 


POALL (package(list)) 


PONS (package(list)) 


pops (packagellist)) 


POS 
pots (package(list)) 


PPS (package(list)) 
PRIMITIVEP name 
PRINT obj © 


‘PRODUCT a b 
QUOTIENT a 5 
RANDOM n. — 


READCHAR, RC 
READLIST, RL 


RECYCLE 


SSS SESS ERE SP SS I OES ES 


Makes procedure pause. 


Outputs pen state (list containing ~ 
_ type and color). 


Outputs number representing pen 
color. 


Puts pen down. 

Puts eraser down. 

Puts reversing pen down. 
Puts pen up. 


Puts in package everything that’s 


not packaged. 

Outputs property list of name. 

Prints definitions of named proce- 
dures. 

Prints definitions of procedures 
and names (in package(list)). 

Prints names and values of vari- 

. ables (in packagel(list)). 
Prints definitions of procedures (in 


__ package(list)). | 
_ Outputs position of turtle. 


Prints title lines of procedures (in 
packagellist)). | 

Prints property list(s) of every- 

_ thing (in packagellist)). | 


Outputs TRUE if name is a primi- 


tive. 
Prints 0b] tollowed by RETURN (no 
brackets for lists). _ 


_ Outputs product of its inputs. 
Outputs integer portion of a/b. 
’ Outputs random non-negative inte- 


ger less than n. 


a Outputs character typed by user 


. (waits if necessary). _ | 
Outputs line typed by user (waits 
if necessary). 


_ Performs a garbage collection. 
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REMAINDER a 6 
REMPROP name prop 


REPARSE 
REPEAT 7 list 
RERANDOM 


RIGHT, RT 72 

ROUND n 

RUN list 

SAVE name (packagellist)) 
SCRUNCH 
‘SENTENCE, SE 0Dj1 obj2 — 
SETBG n | | 


SETCURSOR pos 7 
SETDISK drive (slot) (volume) 


SETHEADING, SETH ni 
SETPC 7 
SETPEN pair 


SETPOS pos 
SETSCRUNCH rn 
SETX x 


SETY yo 
SHDWobj - 


SHOWNP 
SHOWTURTLE, ST 





-Outputs remainder of a divided 


by 6. 

Removes property prop from 
name. 

Performs a reparsing. 

Runs list n times. 

Makes RANDOM behave repro- 
ducibly. 

Turns turtle n degrees right, i.e. 
clockwise. 

Outputs n rounded off to nearest 
integer. 

Runs dst; outputs what list 
outputs. 

Writes whole workspace or 
package(list) onto file 
name.LOGO. 


Outputs current aspect ratio. 


| _ Outputs list of its inputs. 


Sets background to color repre- 
sented by n. 


Puts cursor at pos. 


Sets drive, slot, and volume num- 
ber. 


_ Sets turtle’s heading to n degrees. 
Sets pen color to 7. 
Sets pen type and color to ele 


ments of pair. 

Moves turtle to pos. 

Sets aspect ratio to n. 

Moves turtle horizontally so that 
x-coordinate is .x.. 

Moves turtle vertically so that 

- y-coordinate is y. 
Prints obj followed by RETURN | 


_ (with brackets for lists). 


Outputs TRUE if turtle is shown. 


Makes turtle visible. 
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SIN 2 
SPLITSCREEN 


SQRT 71 
STOP 


‘SUM a b 
TEST pred 


TEXT name 


TEXTSCREEN 
THING name 


THROW name 


TO name (inputs) 
TOWARDS pos 


'TYPE obj 
UNBURY (pkg) 


WAIT n 
WINDOW 
"WORD wordl word2 


WORDP obj 
WRAP 


XCOR 
YCOR 

.BPT | 
.CONTENTS 


DEPOSIT n a 
EXAMINE n 


PRINTER slot 


(aR ma IE TR Ee eR PE I 


Outputs sine of n degrees. 

Splits screen: top for graphics, bot- 
_ tom for text. 

Outputs square root of n.. 


Stops procedure and returns con- 
trol to caller. 


Outputs sum of its inputs. 
Remembers whether pred is TRUE 
Or FALSE. 


Outputs definition of procedure 
name as a list. 
Devotes entire screen to text. 


Outputs object referred to by 
name. 


Transfers control to corresponding 
CATCH. 


_ Begins defining procedure name. 


Outputs heading turtle would have 
if facing pos. 


Prints obj (no brackets for lists). 


_ Unburies procedures in pkg or 


workspace. 
Pauses for n 60ths of a second. 
Makes turtle field unbounded. 
Outputs word made up of its in- 
puts. 
Outputs TRUE if 9b] is a word. 


Makes turtle field wrap around 
edges of screen. 


Outputs x-coordinate of turtle. 
Outputs y-coordinate of turtle. 
Enters the Apple monitor. 


Outputs list of names, procedure 
names, and other words. 


Writes a into address n (decimal). — 


- Outputs contents of address n 


(decimal). 


Directs printing to printer aceaas 
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Primitives 
(Infix Form) 
at+b 

(a) — b 

a*b 

—alb 

a<b 

objl = obj2 


a>b- 


Special characters | 


*<- or DELETE 


* 3 


*CTRL-A 


*CTRL-B 
CTRL-C 
*CTRL-D 
*CTRL-E 
*CTRL-F 
CTRL-G 


*CTRL-H 
*CTRL-K 


CTRL-L 


CTRL-L 


CTRL-M 
CTRL-N 





Outputs a plus 0. 

Outputs a minus b. 

Outputs a times b. 

Outputs a divided by b. | 
Outputs TRUE if a is less than b- 
Outputs TRUE if obj] is equal to 

obj2. 
Outputs TRUE if a is greater than b. 


An asterisk (*) indicates an editing 
command which works both inside 
and outside of the editor. 


Erases character to left of cursor. 
Same as CTRL-F. 


Moves cursor to beginning of cur- 
rent line. 


Moves cursor one space backward. 
Exits from editor, reading buffer as 
if typed in. | 
Erases character at cursor position. 
Moves cursor to end of current line. 
Moves cursor one space forward. 
Interrupts running procedure, stop- 
ping it. 
Same as <. 


Eases everything on current line to 
right of cursor. 


Scrolls screen to put current line at 
center (in editor). 


Devotes entire screen to graphics 
(outside of editor). 


Same as RETURN. 


Moves cursor down to next line in | 
editor. 
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CTRL-O Opens new line at position of cursor 


in editor. 
CTRL-P Moves cursor up to previous line in 
editor. 
*CTRL-Q Quotes next character you type; 
prints a backslash (\). 
CTRL-S Splits screen: top for graphics, bot- 
tom for text. 
CTRL-T Devotes entire screen to text. 
*CTRL-U Same as CTRL-F. 
CTRL-V i Scrolls screen to next page in editor. 
-CTRL-W Makes Logo stop until another 
character is typed. 
*CTRL-Y Inserts the contents of the kill 
buffer. 
CTRL-Z Interrupts running procedure, mak- 
ing it pause. 
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END 
ERRACT 


ERROR 
FALSE 
PROCPKG 
REDEFP 


STARTUP 


TOPLEVEL 
TRUE 
VALPKG 


SYSTEM 





Tells Logo that you are done defining a procedure. 


_ System variable: if TRUE, Logo pauses when error 


occurs. 

Tag for THROW when error occurs. 

Special input for AND, IF, NOT, OR, and TEST. 
Property of procedure name; value is its package. 
System variable: if TRUE, primitives can be rede- 
fined. | 
System variable: if a list, Logo runs it after start- 
ing up. 

Tag for THROW to return control to top-level. 
Special input for AND, IF, NOT, OR, and TEST. 
Property of variable name; value is its package. 


Package containing ERRACT and REDEF?P (initially 
buried). 


Appendix D An Example of Using the Editor 





You have been introduced to defining a procedure 
using the editor, and to some editing actions 

_ (CTRL-A, CTRL-B, CTRL-E, CTRL-F, CTRL-N, CTRL-P, 
DELETE, CTRL-C) in the Introduction to Program- 
ming through Turtle Graphics. There are many 
editing actions, all of which are described in Chap- 
ter 6 and are listed in Appendix B. 


‘There are a few more editing actions that are so 
useful that we will show you in tutorial style how 
they are used. | 


Define the procedure TRIANGLE. 


TO TRIANGLE -:SIDE 
FD :SIDE 
RT 120 
FD :SIDE 
RT 120 
FD :SIDE 
RT 120 
END 


TRIANGLE (old version) 


Let’s imagine we want to change it so that it 
draws this: G4, Bs 





TRIANGLE (new version) ° 


Here is what the new procedure will look like: 
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TO TRIANGLE :SIDE 
FD :SIDE . | 
BK :SIDE 

RT 120 

FD :SIDE 

BK :SIDE 

RT 120 

FD :SIDE 

BK :SIDE. 

FT 120 

END 


Let’s EDIT our old procedure and transform it 
into this new one. Type 


EDIT ''TRIANGLE 


Now, use CTRL-N to move the cursor to the begin- 
ning of the third line 


TO TRIANGLE :SIDE 
FD :SIDE 

RT 129 

FD :SIDE 

RT 120 

FD :SIDE 

RT 128 


We want to add our new line where the cursor is 
now. You could just type the new instruction and © 
then RETURN. That would work fine. Try typing 
BK; notice that the text on the line moves out of 
the way. 


TO TRIANGLE :SIDE 
FD :SIDE 

BKRT 120 

FD :SIDE 
RT 120 

FD :SIDE 

RT 120 

END 
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Now DELETE the characters you just typed (so 
that the cursor is at the beginning of the line 
again) and type CTRL-O. This editor action means 
Open new line. The screen looks like ~ 

TO TRIANGLE :SIDE 

FD :SIDE 

RT 120 

‘FD :SIDE 

RT 120 

FD :SIDE 


RT 120 
END 


You have a fresh open line right in front of the cur- 

_ sor on which to type your new instructions. Type 
BK ‘SIDE. Put in the other two occurrences of this 

new instruction in the same way: 

TO TRIANGLE: >SIDE 

FD :SIDE — 

BK :SIDE 

R™ 120 

FD :SIDE 

BK :SIDE 

RT 120 

FD :SIDE 

BK :SIDE 

RT 120 

END 


Now type CTRL-C to exit from the editor. Try your 
new TRIANGLE procedure. 


| “Get back into the editor to see a few other tricks. 
_ Type EDIT "TRIANGLE. 


. Now move the cursor to the cine of the third 
| line again by typing CTRL-N. Type CTRL-K. This 
means Kill the rest of the current line. You will see 
: that line disappear. You can bring the line back by 
typing CTRL-y. This means Yank the kill buffer. 
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When you type CTRL-K, the editor puts the text 
on the rest of the current line into a special place 
called the kill buffer, and then erases that text 
from the screen. The text stays in the kill buffer. 
You can then insert a copy of that text at the posi- 
tion of the cursor (as if you typed it again) by typ- 
ing CTRL-Y. This can be used for moving lines 
around in a procedure, or for putting in multiple | 
copies of a line. ) 


Try this: move the cursor to the beginning of the 
last line (get it there however you want; CTRL-N is 
recommended). Type CTRL-O. Now type CTRL-Y. 
This yanks the text from the kill buffer again. 
Type RETURN. Type CTRL-Y again. This puts an- 
other copy of that text in at the position of the 
cursor. 

TO TRIANGLE :SIDE 

FD :SIDE | 

BK :SIDE 

RT 120 

FD :SIDE 

BK :SIDE 

RT 120 
“FD: 2S TIDE 

BK :SIDE 

RT 120 

BK :SIDE 

BK :SIDE 

END 


Experiment with moving lines around using 
CTRL-O, CTRL-K, and CTRL-Y. Don’t worry about 
messing up the TRIANGLE procedure. 


Another important editing action happens when 
you type CTRL-D (which stands for Delete charac- 
ter). This deletes the character at the current cur- 
sor position. The DELETE (+) key, in contrast, 
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deletes the character to the left of the current cur- 
sor position. Both of these actions are useful when 
you are typing. 


Move the cursor to various places on the screen 
and type CTRL-D. See how the character that the 
cursor is on is deleted. This is a useful action to 
use when you discover a typing mistake you have 
' made earlier. Just move the cursor onto the wrong 
characters, and delete them. 


What happens if you move the cursor to the end 
of a line (use CTRL-E) and type CTRL-D? Try it. The 

next line “moves up” and gets merged with the 
current line. What really happened is that you De- 
leted the RETURN at the end of the line you were 
on. This emphasizes that there is a RETURN at the 
end of each line, and even though it is invisible it is 
a real character and can be deleted. Put it back in 
by pressing the RETURN key. 


Now you know the fundamentals of using the 
Logo editor. By this time, you should have really 
messed up the appearance of the TRIANGLE defi- 
nition on the screen. If things are damaged like 
this, and you want to get back to Logo without 
giving Logo the new (messed up) definition, exit 
from the editor by typing CTRL-G. This gets you 
out of the editor but does not give any new infor- 
mation to Logo. TRIANGLE does not get rede- 
fined. Try it. You should get back to Logo: 


?PO "TRIANGLE 
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Logo should print the last definition of TRIANGLE 
that we gave it: 


TO TRIANGLE :SIDE 


FD :SIDE 
BK :SIDE 
RT 120 
FD :SIDE 
BK :SIDE 
RT 120 
FD :SIDE 
BK :SIDE 
RT 120 
END 
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Appendix E Error Messages | 


Number | 


WCOIMKMAhwnwe 


WWOWWWWNNNNNNNNNNP KE BP BE Bee eee 
ARUN HF OODARTMTAWNHOWODNBDHAAWNE OS 





Message | | 
(procedure) IS ALREADY DEFINED 


NUMBER TOO BIG 


(symbol) IsN’T A PROCEDURE 


_ (symbol) ISN’T A WORD 


(procedure) CAN’T BE USED IN A PROCEDURE 
(symbol) Is A PRIMITIVE 

CAN’T FIND LABEL (symbol) — 

CAN'T (symbol) FROM THE EDITOR 

(symbol) IS UNDEFINED” 

(procedure) DIDN'T OUTPUT TO (symbol) 

I’M HAVING TROUBLE WITH THE DISK 

DISK FULL 


- CAN’T DIVIDE BY ZERO 


END OF DATA 

FILE ALREADY EXISTS 

FILE LOCKED 

FILE NOT FOUND 

FILE IS WRONG TYPE . 
TOO FEW ITEMS IN (list) 


NO MORE FILE BUFFERS 


CAN’T FIND CATCH FOR (symbol) 
(symbol) NOT FOUND 

OUT OF SPACE 

(procedure) CAN’T BE USED IN A PROCEDURE 
(symbol) IS NOT TRUE OR FALSE 
PAUSING... 

YOU RE AT TOPLEVEL 

STOPPED! 

NOT ENOUGH INPUTS TO (procedure) 
TOO MANY INPUTS TO (procedure) 
TOO MUCH INSIDE PARENTHESES. 
TOO FEW ITEMS IN (list) 

CAN ONLY DO THAT IN A PROCEDURE 
TURTLE OUT OF BOUNDS | 


I DON’T KNOW. HOW TO (symbol) 
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36 
37 
38 
39 
40 
4] 
42 


(symbol) HAS NO VALUE 

) WITHOUT ( 

I DON’T KNOW WHAT TO DO WITH (symbol) 
DISK VOLUME MISMATCH 

DISK IS WRITE PROTECTED 

(procedure) DOESN'T LIKE (symbol) AS INPUT 


(procedure) DIDN’T OUTPUT 


'!! LOGO SYSTEM BUG !!!. 
Should not occur. Please write to LCSI if it does. 
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Appendix F Programs Provided in Startup File | 





On the Logo file diskette there is a file named 
STARTUP. It is loaded into your workspace when 
Logo starts up. We have put the following proce- 
dures in that file: 

ARCLEFT ARCL 

ARCRIGHT ARCR 

CIRCLEL 

CIRCLER 

READWORD RW 


If you have rewritten your STARTUP file, you can 
type in the definitions below and put them back in 
_ your STARTUF file. 


These procedures, as well as ARCR1 and ARCLI, 
are organized into a package named AIDS. The 
package is buried. | 


Here is a listing of these procedures. 


ARCS AND CIRCLES . 


TO ARCRIGHT :RADIUS :DEGREES 

ARCR1 .174532 * :RADIUS :DEGREES/19 
IF 0 = REMAINDER :DEGREES 19 CSTOP]) 
FD .174532 * :RADIUS/20/REMAINDER :D! 
EGREES 18 . | 

RT REMAINDER :DEGREES 190 

END 


TO ARCR :RADIUS : DEGREES 
ARCRIGHT :RADIUS :DEGREES 
END ae 


TO ARCLEFT :RADIUS :DEGREES 

ARCL1 .174532 * :RADIUS :DEGREES/19 © 
IF ® = REMAINDER :DEGREES 10 [STOP] 
FD .174532 * :RADIUS/2@/REMAINDER :D! 
EGREES 18 | | 

LT REMAINDER :DEGREES 18 

END | 


TO ARCL :RADIUS :DEGREES 
ARCLEFT :sRADIUS :DEGREES 
END | 161 
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ARCLEFT 
ARCL | 


TO ARCR1 :STEP : TIMES 


“REPEAT :TIMES CRT 5 FD :STEP RT 5] 


END 


TO ARCL1 :STEP :TIMES = 
REPEAT :TIMES CLT 5 FD :STEP LT 5] 
END 


TO CIRCLEL :RADIUS 
ARCL1 .174532 * :RADIUS 36 
END 


TO CIRCLER: :RADIUS 
ARCR1 .174532 * :RADIUS 36 
END | 


Comments: These arc and circle procedures actu- 
ally draw a 36-sided polygon. (The number .174532 
is the result of computing 2* PI / 36; PI is rounded 


. to 3.1416; and 36 is the number of sides of the 


polygon.) 


READWORD AND RW 


TO READWORD 


OP FIRST READLIST 
END 


TO RW 
OP READWORD 
END 


ARCLEFT radius degrees (command) shirt form: 
ARCL 
Draws an arc of the specified number of degrees 


_ curving toward the left, taken from a circle with 


the specified radius. 


, Example: 


ARCLEFT 30 90 draws a quarter of a circle with a — 
radius of 30 turtle steps. | 
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ARCRIGHT 
ARCR 


-CIRCLEL 


CIRCLER 


ARCLEFT 30 90 


ee 


ARCRIGHT radius degrees (command) sh short form: 


' ARCR 


Draws an arc of the specified number of degrees 
curving toward the right, taken from a circle with 
the specified radius. | 
Example: 


ARCRIGHT 30 90 draws a quarter of a circle with a 
radius of 39 turtle steps. 


- 


ARCRIGHT 30 90 


CIRCLEL radius (command) 
Draws a circle of the specified radius curving to- 
ward the left. 


Example: 
CIRCLEL 30 draws acircle with a radius of 30 turtle 
steps. 


CIRCLEL 30 


CIRCLER radius (command) 
Draws a circle of the specified radius curving to- 
ward the right. 


_ Example: 


CIRCLER 30 draws a circle with a radius of 30 tur- 
tle steps. 
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READWORD 
RW 





CIRCLER 30 


READWORD (operation) short form: RW 
Outputs the first word typed. If the input buffer 
is empty, READWORD waits until the user types 
something. If a line containing more than one 
word is typed, READWORD picks up only the first 
word. | 
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Appendix G _— Useful Tools’ 





Some of the procedures defined earlier through- 
out this manual are likely to be useful in con- 
structing your own procedures. They are collected 
here in alphabetical order for your convenience. 
Refer to the index to find out where examples of 
their use appear. | 


TO ABS :=NUM | 
OP IF :NUM < ® C-:NUM]) [:NUM] 
END 


TO DIVISORP :A :B 
OP ® = REMAINDER :B :A 
END 


TO FOREVER :INSTRUCTIONLIST 
RUN :INSTRUCTIONLIST 
FOREVER :INSTRUCTIONLIST 
END | 


TO INV.VIDEO :WORD 
SPECIAL.TYPE :WORD 128 
END | 


TO SPECIAL. TYPE :WORD :ADDEND 

IF EMPTYP :WORD [STOP] 

TYPE CHAR :ADDEND + REMAINDER ASCII! 
FIRST :WORD 64 | | 
SPECIAL.TYPE BF :WORD :ADDEND 

END | 


TO MAP :CMD :LIST 

IF EMPTYP :LIST CSTOP3} | 

RUN LIST :CMD WORD ''' FIRST :LIST 
MAP :CMD BF :LIST 

END 


TO POLY :SIDE :ANGLE 
FD :SIDE 

RT : ANGLE 

POLY :SIDE :ANGLE 
END 
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TO PROMPT :MESSAGE 
TYPE :MESSAGE 


TYPE '' \ ; (CTRL-Q followed by a space) 
END 


TO WHICH :MEMBER :LIST 

IF NOT MEMBERP :MEMBER :LIST [OP 0] 
IF :MEMBER = FIRST :LIST COUTPUT 1] 
OUTPUT 1 + WHICH :MEMBER BF :LIST 
END 


TO WHILE :CONDITION :INSTRUCTIONLIST 
TEST RUN : CONDITION 

IFFALSE CSTOP] | 
RUN :INSTRUCTIONLIST | i 

WHILE CONDITION sINSTRUCTIONLIST 
END 7 
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Appendix H_~ Space 





Logo procedures and variables take up space; 
more space is used when.the procedures are run. 


Some Logo users may wish to know how space is 
used in Logo and how to conserve it. In general, 
saving space is not something you should worry 
about. Instead you should try to write procedures 
as clearly and elegantly as possible. However, we 
recognize that the Apple IT has only a finite mem- 
ory. This appendix discusses how space is alloca- 
ted in Logo and how you can use less of it. 


How It Works 

Space in Logo is allocated in nodes, each of which 
is five bytes long. All Logo objects and proce- 
dures are built out of nodes. The internal work- 
ings of Logo also use nodes. The interpreter 
knows about certain free nodes that are available 
for use. When there are no more free nodes, a spe- 
cial part of Logo called the garbage collector looks 
through all the nodes and reclaims any nodes that 
are not being used. 


For example, during execution of the following 
_ procedure 

TO PRINT.SUM :N 3M 

MAKE "'N :N + 3M 

PRINT :N 

END 


after you say PRINT.SUM 34, N is assigned to a new 
node that holds the value 7. After PRINT.SUM 
stops, the old value of N (if any) is restored and the 
7 will be lost forever. The node containing the 7 
can be reused, and it will be reclaimed as a free 
_ node the next time the garbage collector runs. 
The garbage collector runs automatically when 
necessary, but you can make it run with the Logo 
command RECYCLE. 167 





The operation NODES outputs the number of free 
nodes; however, i: you really want to find out how 
much space you have, you should do something 
like the following: | 
?7RECYCLE PRINT NODES 

259 | 


How Space Is Used 

Every Logo word used is stored only once: all oc- 
currences of that word are actually pointers to the 
word. A word takes up two nodes, plus one node 
for every two letters in its name and additional 
node if this word has a property list. Some words 
can share the ends of their names with other 
words; for instance, if you say WORD "SAN "FRAN- 
cisco the resulting word SANFRANCISCO takes 
only two nodes for its name, since the FRANCISCO 
part is shared with the word FRANCISCO. 


Not all words that end in the same letters will be 
shared—mostly only those constructed with 
WORD. 


A number, whether integer or decimal, takes up 
one node. A list takes up one node for each ele- 
ment (plus the size of the element itself). You can’ 
get a rough estimate of the size of a procedure by 
taking the size of the list that would be output by 
TEXT. 


168 





Space Saving Hints | 
. It is important to remember that it is bad form to 


gave space by writing procedures that are less 


readable because of the use of short or obscure 
words. 


. Rewrite the program. Use procedures to replace 
repetitive sections of the program. 


. Space can be saved in Logo by not creating new 
words. The names of local variables of procedures 
can be the same as names of local variables of 
other procedures. The names of procedures and 
primitives can also be used as variable names. 
Lastly and most extreme, you can reuse or erase 
primitive names; doing so does not destroy the 
word but does reclaim two nodes that were used 
to store internal information about the-primitive. 


4. It should be noted that misspellings, typing er- 


rors, and words that are no longer being used are 
not destroyed. All currently existing words can be 
seen on the list output by CONTE NTS. For instance 
if you type: 

2?PRIMT "FOO 


I DON'T KNOW HOW TO PRIMT 
PALSJKDFLKDFJKLFJ © 


the words PRIMT, FOO, and ALSJKDFLKDFJKLFJ 
will be created and will not go away. However, if a 
word has no value, property list, or procedure def- 
inition, it will not be written out to a file. So if you 
are running out of space and have a lot of these 
words (sometimes known as truly worthless 
atoms) you can write out your workspace and 
then read it into a freshly started Logo. 


Appendix I 


Parsing 





When you type a line at Logo, it recognizes the 
characters as words and lists, and builds a list 
whith is Logo’s internal representation of the line. 
This process is called parsing. The list is similar to 
the list that would be output by READLIST. This 
appendix will help you understand how lines are 
parsed. 


Delimiters 
A word is usually delimited by span: That i is, 
there is a space before the word and a space after 


the word; they set the word off from the rest of 


line. There are a few other delimiting characters: 
C1 C2252 45" 5 


- There is no need to type a space ‘between a word 


and any of these characters. For example, the line 
IF 1<2CPRINT(3+4)/S5](PRINT :X+6] 


is parsed exactly like 
IF 1 < 2 CPRINT (3 + 4) / 5] CPRII 
NT :X + 6] 


And if you define a procedure to contain a line in 
the first form, you will see that Logo has. con- 


verted it into the second. 


To treat any of the characters mentioned above as 
a normal alphabetic character, put a backslash 
"\" (typed with CTRL-Q) before it. For example: 


2PRINT "SAN\ FRANCISCO | 
SAN FRANC ISco (a single word, containing a space) 


Infix Procedures 

The characters =,<,>,+,—,*,/ are the names of 
infix procedures. They are treated as procedures 
of two inputs, but the name is written between 
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‘the two inputs. This is a property of the proce- 
dure, not the name, as the following example 
shows (REDEFP must be TRUE). 

?COPYDEF "PLUS "+ 

2PRINT 3 PLUS 4 


4 
? 


Note: the fact that a particular symbol is the 
name of an infix procedure is independent from 
the fact that it is a delimiter: e.g., if you redefined 
+, it would no longer be an infix procedure but 
would still be a self-delimiting character. (These 
sorts of redefinitions are not recommended.) 


In manv cases (those for which the behavior of the 
procedure would not be ambiguous), the infix pro- 
cedures may be used in prefix form like normal 
Logo procedures: 


?PRINT * 4 5 


20 - | | | 

2PRINT (+ (* 2 3) (* 4&4 5)) 

26 | . 

?PRINT + * 23% 45 | 
29 (this parsed as (+ (* 2 (3*4)) 5) 
Brackets | 


Left bracket ”[” and right bracket ”]” indicate the — 
start and end of a list or sublist. If the end of a 
Logo line is reached (that is, the RETURN key is 
_ pressed) and brackets are still open, all sublists 
are closed. For,example: 

?REPEAT 4 CPRINT [THIS CIS [A [TEST 
THIS CIS CA CTESTI]] ~ 

THIS CIS CA CTESTII] 


THIS CIS CA CTESTI]] 
THIS CIS CA CTESTII) 
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RTA SPR GARE AE SRL I TS i a EL EE PTE 
If a right bracket is found for which there was no 
corresponding left bracket, it is ignored. Brackets 
(along with space) are somewhat different from 
the other delimiting characters in that they are 
not Logo words. — 


Quotes and Dots 
There is an exception to the rule that the delimit- 
ing characters delimit words. If a delimiting word 
is preceded by quotes or dots, the delimiting char- 
acter is parsed as a quoted or dotted one-letter 
_word (where normally you would expect the de- 
limiter to delimit the quoted or dotted zero- 
character word). For example: 


PPRINT ‘''+ 

+ 

2PRINT "+PRINT ''C 

; | 

¢ | | 
PPRINT ""\+PRINT (the backslash is typed by CTRL-Q) 
+PRINT 

The Minus Sign 


The way in which the minus sign "—” is parsed i is 
also a little strange. The problem here is that one 
character is used to represent three different 
things: | | 

1. as part of a number to indicate that it is negative, 
as in —3 

2. as a procedure of one input, called unary minus, 
which outputs the additive inverse of its input, as 
in —XCOR or —:DISTANCE | 

3. as a procedure of two inputs, which outputs the 

_ difference between its first input and its second, | 

as in 7—3 and XCOR-—YCOR 
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The parser tries to be clever about this potential 
ambiguity and figure out which one was meant by 
the following rules: | 

. If the ”—” immediately precedes a number, and 
follows any delimiter except right parenthesis ”)”, 
the number is parsed as a negative number. — 
This allows the following behavior: | 
PRINT SUM 20-29 (parses as 20 minus 20) — 
PRINT 3*—4 (parses as 3 times negative 4) 

PRINT (3+4)—5 (parses as 3 plus 4 minus 5) 

FIRST [—3 4] (outputs —3) 


. Ifthe ”—” immediately precedes a word or left pa- 
renthesis ”(”, and follows any delimiter except 
right parenthesis, it is parsed as the unary minus 
_ procedure: | 

SETPOS LIST :X —:y 

SETPOS LIST YCOR —XCOR 

FIRST [—XCOR] (outputs —) 


. In all other cases, ”—” is parsed like the other in- © 
fix characters—as a procedure with two inputs: 
PRINT 3-4 (parses as 3 minus 4) | : 
PRINT 3 — 4 (parses exactly like the previous 
example) 

PRINT — 34 eee the same as the previous 
example) 
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Appendix J_ 


Redefining Primitives 





You can change the definition of a Logo primitive 
using DEFINE. DEFINE won’t work for primitives 


_ unless :REDEFP is TRUE. (It is initially FALSE, to 


prevent you from redefining primitives acciden- 
tally.) 


The following example of redefining FD is a trick 
you could play on an unsuspecting friend. 

MAKE "REDEFP: ''TRUE 

DEFINE “'FD CCN] CBK “NJ ] 


Try FD 100 
Later you could restore FD’s definition, by typing 
COPYDEF "'FD “FORWARD 


There are less frivolous reasons for redefining 


primitives. One possible reason is to get informa- 


tion about the running of your program to help in 
debugging. For example, if you find that your var- 
iables have the wrong values, you might, find it 
helpful to have a version of MAKE that records 


what it’ S doing. Here’s how: 


2COPYDEF "TRUE.MAKE “MAKE 

?DEFINE. "MAKE COINAME THING] [CPR (SE ! 
"MAKING :NAME "= : THING) TRUE.MAKE :! 
NAME : THING] ] 


After you have redefined primitives you may 
want to make :REDEFP FALSE to protect primi- 
tives from accidental changes. 
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Appendix K The ASCII Code 





This appendix contains a chart of ASCII code 
values (in decimal) for all characters in Lcs1 Apple 
Logo. Note that characters can be 

¢ normal (white characters on black background) 

¢ inverse video (black characters on white back- 
ground) 

© flashing (rapidly alternating between normal and 
inverse) 


Apple Logo cannot print the full Asci1 character 
set. Lower-case and CTRL characters print as their 
upper-case equivalents; characters 9b, 123, 124, 
125, and 126 print as other punctuation marks. 


Inverse and flashing are extensions to ASCII. 
They may not work in other implementations of 
Logo. oo | 


Notes 

To change a normal character to inverse, use the 
expression _ | 

CHAR 128 + REMAINDER ASCII :CHARACTER 64 | 


To change a normal charcter to flashing, use the 
expression 

CHAR 192 + REMAINDER ASCII :CHARACTER 64 | 
Lower-case letters print as upper-case on the 
screen when using the Apple. - 
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3 ‘ 
(NOTE: The prefix * indicates CTRL.) 


‘ASCH char ASCII char ASCII char = ASCII. char 


code code code code 
0 *@ 32 SPACE 64 @ 96 \ 
1 *A 33! 65 A 97 a 
2  ‘B 34 =”. 66 =B 98 b 
3 C | 8 # 67 C 99 c 
4 *D 36 $ 68 D- 100 +d 
5 EH 37% 69 E 101 e 
6 ‘’F 38° & 170 #=*#*F 102. —s ff 
7 BELL 39’ 71 G (103° og 
8 °*H 40 - ( 72 4H 104 oh 
9 41 ) 13 ~«CS 105 i. 
10 ‘J 42 * 74 «=J 106 j 

11 = s°K 43 + 75 K. 107 ~«&k. 
12 ‘L 44, 746 «6 L 108] 
13 RETURN 45 - 717 M 109 m 
14 °N 46, 718 oN 110 on 
15 °O 47 | 179 O 1ll oo 
16 ’P 48 @ 80 ~=«=~P 112 p 
17 "Q 49 1 81 Q 113 q 
18 °‘R 50 2 82 R 114 r 
19 “Ss 51 3 83 S 115s 
20 «'T 52 4 84 T 116 ¢t 
21 ‘U- 53 5 85 U 117 wu 
22 °'V 54 6 86 V 118 Vv 
23 *W- 55. 7 87 W 119 ow 
24 'X% 56 8 88 xX 120 x 
25 "Y 567 9 89 Y 121 y 
26 2 58s 9 Z 122 z 
27 ESC 59S; 91 [| 123 { 
28 *\ 60 < 92 «ON 124 | 
29] 61 = 93] 125} 
30.0 62 > 94 * 126 ~ 
ale se 63 ? 95 _ 127 DEL 
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(inverse) (inverse) (flashing) (flashing) 
ASCII char ASCII char ASCII char ASCII char 


code code code code 

128 @ 160 SPACE. 192 @ 224 SPACE 
129 A 161 ! 193 A 225 ! 
130 B 162 - 194 B 226 m 
131 C 163 # 195 C 227 # 
132 D 164  § 196 D 228 = $ 
133 E 165 % 197 E 229 % 
134 F 166 & 198 F 230 & 
135 G 167 : 299 G 231 / 
136 H 168 ( 200 H 232 ( 
137 I 169 ) 201 #3xSCT 233 ) 
138 J 170 * 202 «2J 234 * 
139 K 171 + 203. K 235 + 
140 L 172 ; 204 «+L 236 ; 
141 M 173 - 205 M 237 - 
142 WN 174 : 206 N 238 : 
143. O 175 / 207 O 239 / 
144 =P 176 @ 208. P 240 «60 
145 Q 177 1 209 Q 241 1 
146 R 178 2 210 R 242 2 
147 §S 179 3 211 S 243 383 
148 T 180 4 212 T 244 4 
149 U 181 5 213 U 245 5 
150 V 182 6 214 V 246 6 
151 W 183 7 . 215 W 247 7 
152 xX 184 8 216 X 248 8 
153 Y 185 9 217 Y 249 #9 
154 Z 186 : 218 Z 250 : 
155 [ 187 ; 219 [ 251 : 
156 = \ 188 < 220 = \ 252 < 
157 ] 189 = 221 } 253 = 
158 °* 199 > 222 % 254 > 
159 _ 191 ee 223 255 ? 
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* 59 

+ 57 

— 57,173 

> 72 

/ 59 

\ xiv, 21, 73, 171 
: xi, xiv, 44, 173 
< 60 

«- 74 

> 61 

[ xiv, 22, 172 

| xiv, 22, 172 


-BPT 136 
CONTENTS 136 
DEPOSIT 136 
EXAMINE 136 
-PRINTER 137 
-SYSTEM 151 


ABS 58, 82 
addition 57 

AGE 100 

AIDS 161 

AND 91 

ANIMAL Xiil 
ANNOUNCE 65 
ANSWER 79 
ARCCOS 50 

ARCL 161, 162 
ARCL1 162 
ARCLEFT 161, 162 
ARCR 161, 163 
ARCR1 162 — 
ARCRIGHT 161, 163 
ARCSIN 50 


SES BE RE IT LAN OIL ITTF I IT RS I RT TINS TTT TY 


ARCTAN 50 
arctangent 50 

ASCII 22, 25, 177 
aspect ratio 10, 14, 16 


BACK 3 

BACKGROUND 3 
background color 3, 10 
backslash xiv, 73, 171 
BF 23 

BG 3 

BK 3 

BL 24 

booting 137 

bound xi 

brackets xiv, 22, 172 
buffer 69, 70 

BURY 111, 116, 123 
BUTFIRST 23 
BUTLAST 24 
BUTTONP 97 


CALCULATOR 85 


call xiii 

CANCEL 130 

Cartesian coordinates 9 
CATALOG 119 

CATCH 126, 128 

CHAR 23, 25, 177 
character 22, 25 


CIRCLE 14 


CIRCLEL 162, 163 
CIRCLER 162, 163 
CLEAN 3 
CLEARSCREEN 4 
CLEARTEXT 105 
co 79 
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colon (:) xi, xiv, 44, 173 
color effects 8, 11, 12 
color, background 3, 10 
color, pen 7, 12, 13 
COMFORT 92 
command vii, ix 
COMMENT 25 
conditionals 79 
container 41 
continuation lines 71 
CONVERT 26 

COPYDEF 129 

cos 51 

cosine 52 

COUNT 26 
COUNTDOWN 87, 135 
cs 4 —- 
CTRL key xix 

— CTRL-A 73 

CTRL-B 72 

- CTRL-C 69, 74, 76 
CTRL-D 74, 157 
CTRL-E 73 

CTRL-F 72 

CTRL-G 69, 74, 88, 126 
CTRL-H 74 

CTRL-K 71, 74, 155 
CTRL-L 75, 107 
CTRL-M 73. 

CTRL-N 72 

CTRL-O 73, 155 
CTRL-P 73 | 
CTRL-Q xiv, 23, 73, 171 
CTRL-S 108 

CTRL-T 108 

CTRL-U 72 

CTRL-V 75 





CTRL-w 88 

CTRL*Y 71, 74, 155 
CTRL-Z 88 

CUBE 52 


CURSOR 105 


cursor xvii, 70, 105 
cursor motion 72 


D6 53 
DECIDE 79, 80 
decimal number 49 — 


-DECIMALP 92 


DEFINE 129 
DEFINEDP 134 
defining 

procedures 65, 69 
DELETE key xvii, 74 
delimiter 21, 171 
DESIGN 13 

DICE 54 


difference 57 


DISK 119 

diskette xvii, xix, 
119, 161 

DISTANCE 56 

division 52, 53, 59 

DIVISORP 54 

DOIT 127 

DOIT1 127 

DOT 4 

dots xi, xiv, 44, 173 


ED 69, 154 
EDIT 69, 154 
edit buffer 69 
EDNS 75 
element 21, 22 


ELLIPSE 15 © 18] 





EMACS 71 
empty list 22 
empty word 22 
EMPTYP 27 
END 66, 69 
equality 60 
EQUALP 28 
equals sign 60 
ER 112 

~ ERALL 112 
ERASE 112 
ERASEFILE 119 
ERN 112 

ERNS 112 

ERPS 113 
ERRACT 128 
ERROR 127, 128 
error message 128, 159 
ESC < 73 

ESC > 73 

ESC V 75 

EVENP 54 
exponent 49 
exponential form 49 
expression v1 


FACTORIAL 59 

FALSE 80, 151 

FDS 

FENCE 4 

field 4, 16, 17 

file name 119 

files 119 

FIRST 29 

FLASH 26 

flashing characters 26, 
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FLATTER 36 | 
FLAVORCHART 106 
FLIP 79 

flow of control 79 
FOREVER 86 
formal Logo v 
FORWARD 5 

FPUT 30, 32 
FROM.HOME 56 
FULLSCREEN 106. 


garbage collection 135, 
167 | 
garbage collector 135, 
167 

GET.USER 100 

GO 134, 135 

GOODVEE 9 

GPROP 124 

greater than 61 
GREET 41, 114 


HASDOTP 92 
HEADING 5 
HIDETURTLE 6 
HOME 6 

home position 4 
HT 6 


IF 80 

IFF 80 
IFFALSE 80, 88 
IFT 81 

IFTRUE 81, 88 
IGNORE 133 
INC 44 


Inequality 60, 61 
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infix form viii, 50, 57, 
171 | 
INP 29, 83 

input vi, xii, 41 | 

instruction vii - 

INT 51 - 
integer 49, 51, 55 
integer portion 51 
INTERPRET 99 
interrupt 88 
INTP 51 
INVERSE 26 
inverse tangent 50 
inverse video 25, 177 
ITEM 30 | 

iteration 79 


KEYP 97 
kill buffer 71 


LABEL 134, 135 | 
LAST. 30 

LATIN 37 

LEARN 130 

LEFT 6 

LEG 131 
LENGTH 113, 114 
less than 60 

LIST 31 | 

_ list vi, x, 21, 31 
LISTP 33. 
LOAD 119, 123 
LOCAL 41 | 

local xiii, 41 
logical operation 91 
Logo object x, 21 
LPUT33 

LT 6 


MAKE Xi, 42 


-~ MAP &5 


MARK.TWAIN 82 
MEMBERP 34 
MESSAGE 100 
minus 57 


minus sign 57 


mod 53 

modular arithmetic 53 
MOUNTAINS 94 

MOVE 101 © 
MOVECURSOR 107 
multiplication 52, 59 


NAME 43 

name xi 

NAMEP 44 

NEAR 58 

negative numbers 57. 
NEWENTRY 34 
NODES 135, 168 

NOT 93. 


- number viii, x, 49 


NUMBERP 35 


object x, 21 


OP 82 
operation vil — 
OR 93 

output x 
OUTPUT 82 


package 111, 113, 119, 
120 

PACKAGE 113 

paddle 97 

PADDLE 98 
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parentheses ix, xiv, 172 

‘parsing 171 

pause 79, 83, 88, 128 

PAUSE 83 

PC 7 

PD 8 

PDRAW 98 

PE 8 

PEN 7 

oen state 7 

PENCOLOR 7 

PENDOWN 8 

PENERASE 8 

PENREVERSE 8 

PENUP 9 

peripheral 97 

PIECE 13 

PIG 38 

PKGALL 113, 123 

PLIST 124 

plus 57 

plus sign 57 

PO 113 | 

POALL 114 

POLY xu, 7, 70, 114, 
115, 132 

PONS 115 

POPS 115 

POS 9 

POTS 116 

PPROP 124 

PPS 125 

PR 98 

predicate 91 

prefix form vui, 50 

primitive v 


PRIMITIVEP 131 
PRINT 98 
PRINTBACK 31 
PRINTDOWN 29 
PRINT.SUM 167 
printer 137 
procedure vi, xiii 
PROCPKG 113, 124 
product 52, 59 
PRODUCT 52 
program v 
prompt xvii, 65 
PROMPT 101 
property list 111, 113, 
123, 124, 125 
PU 9 
PX 8 


QUIZ 81 

quotes vi, xi, 14, 173 

quotient 52, 59 

QUOTIENT 52 

quoting character xiv, 
23, 73, 171 


RANDOM 53 

random number 53, 54 
RANPICK 27 

RC 99 

READCHAR 99 
READLINES 130 


-READLIST 99 


READNUM 127 
READWORD 162, 164 
REALWORDP 93 
rebooting 137 
recursion Xl 
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recursive Xill 
RECYCLE 135, 167 
REDEFP 129, 130, 175 
relaxed Logo v, viil 
_ REMAINDER 53 
REMPROP 125 
REPARSE 135 
reparsing 135 
REPEAT 84 
_ REPORT 102 
REPRINT 98 
RERANDOM )4 
RESTORE 13 
RETURN key xviii _ 
REVPRINT 28 
RIGHT 10 
RL 99° 
root 56 
_ ROUND 55 

RT 10 
RUN 84 
RW 162, 164 


SAFE.SQUARE 87 
SAFESQUARE 128. | 
SAVE 120 
scientific notation 49 
screen 105 
scrolling 75 _ 
SCRUNCH 10 

SE 35 

SECRETCODE 23 

| SECRETCODELET 23 
_ self-quoting viii 
SENTENCE 35. 
_SETBG 10 
SETCURSOR 106 


SETDISK 120 
SETH 12 © 
SETHEADING 12 
SETPC 12 
SETPEN 13 
SETPOS 14 


-SETSCRUNCH 14 


SETX 15 
SETY 15 


shift key xviii 


short form ii 
SHORTQUIZ 88 
SHOW 100 
SHOWINPUTs 133 


SHOWLINES 133 
-SHOWNP 15 


SHOWTURTLE 16. 


SIN 56 


sine 56 

slash 59 
SLITHER 126 
SNAKE 126 © 


' space 167 


space key xix 
SPI 10, 114, 115 
SPLITSCREEN 107 


sq 56 


SQRT 56 | 
SQUARE x, 5, 65, 86, 87, 


—:129, 1382 : 


square root 56 


‘SQUARE.WITH.TAIL 132 


sT 16 | 
STARTUP xx, 161 | 
STEER 97 
STEP 133 
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STEPPER 133 WAIT 101 
STOP 87 WALK 84 
SUBMOUNTAIN 94 WEATHER 43 
subtraction 57 WHICH 82 
SUFFIX 37 | WHILE 85 
SUM 57 - WINDOW 16 

, WORD 37 
TAB 106 word vi, x, 21, 37 
TALK 27 word delimiter 21 
TAN Ol 


WORDP 38, 93 


tangent o1 workspace 111, 119, 
TEST 88 120, 123 
TEXT 13] WRAP 17 
TEXTSCREEN 107 
THING 44 x-y coordinates 9 
thing xi XCOR 17 
THROW 126, 128 XYZZY 99 
title line 116 

YCOR 18 
TO x, 65 

YESNO 41 


TOPLEVEL 126, 128 
toplevel xviii 

TOWARDS 16 
TRIANGLE 24, 153, 158 
trigonometry 50, 51, 56 
TRUE 80, 151 

-TURN 97 

turtle field 16, 17 

TYPE 101 


UNBURY 116, 123 
UNSTEP 133 


VALPKG 124 
value xi, 44 
variable xi, 41 
VEE 9 
VOWELP 35 
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Procedures and 
Their Inputs 


.Turtle Graphics 
BACK, BK distance 
BACKGROUND, BG 
CLEAN 
CLEARSCREEN, CS 
DOT position | 
FENCE 

FORWARD. FD distance 
HEADING 
HIDETURTLE, HT 
HOME 

LEFT, LT degrees 
PEN | 

PENCOLOR, PC 
PENDOWN, PD 
PENERASE, PE 
PENREVERSE, PX 
PENUP, PU 

POS 

RIGHT, RT degrees 
SCRUNCH 

SETBG colornumber 
SETHEADING, SETH degrees 
SETPC colornumber 
SETPEN pair 
SETPOS position 
SETSCRUNCH n 
SETX x 

SETY y 

SHOWNP 
SHOWTURTLE, ST 
TOWARDS position | 
WINDOW 

WRAP 

XCOR 

YCOR 


Words and Lists 

ASCII char 
BUTFIRST, BF object 
BUTLAST, BL object 
CHARN 

COUNT list | 
EMPTYP object 
EQUALP objectl object2 
FIRST object 

FPUT object list 

ITEM n object 


Logo Vocabulary 


Note: Parentheses arourid an input indicate that the input is 
optional. A number sign (#) indicates a procedure which. can 
take any number of inputs; if you give it other than the number 
indicated, you must enclose the entire expression in paren- 


theses. 


LAST object 
# LIST object1 object2 
LISTP object 
LPUT oOject list 
MEMBERP odject list 
NUMBERP oDject 
* SENTENCE, SE objectl object2 
* WORD word! word2 - 
WORDP object 
object! = object2 


Variables 

#LOCAL name . 
MAKE name object 
NAME object name 
NAMEP word 
THING name 


Arithmetic Operations 

ARCTAN n 

COS degrees 

INT n 
* PRODUCT a 6 

QUOTIENT a b 

RANDOM n 

REMAINDER a b 

RERANDOM © 
“ROUND n 

SIN degrees 

SQRT a 
*SUMab 

a+b 

a—b 

a*b 

a/b 

a<b. 

a=b 

a>b 


Defining and Editing 
EDIT, ED (name(s) 
EDNS {packagellist)) 
TO procname (inputs) 


Conditionals and Flow 
of Control 
CO (object). 
IF pred listl (list2) 
IFFALSE, IFF list 
IFTRUE, IFT list 
OUTPUT. OP object 
PAUSE 
REPEAT ni list 
RUN list 
STOP 
TEST pred 


Logical Operations 
4 AND pred] pred2 
NOT pred 
“OR predl pred2 


The Outside World 
BUTTONP paddlenumber 
KEYP 
PADDLE paddlenumber 
* PRINT, PR object 
READCHAR, RC 
READLIST, RL 
SHOW object 
4*TYPE object 
WAIT Nn 


Text and Screen Commands 
CLEARTEXT 

CURSOR, 

‘FULLSCREEN 

SETCURSOR position 
SPLITSCREEN. 
TEXTSCREEN 


Workspace Management 
BURY package 

EBALL (package(list)) 
ERASE, ER name(s) 

ERN name(s) 

ERNS (package(list)) 
ERPS (packageflist)) 
PACKAGE package name(s) 
PKGALL package 

PO name(s) 

POALL (package(list)) 


PONS (packageflist)) 
POPS (packageflist)) 
POTS (package(list)) 
UNBURY package 


Files 

CATALOG 

DISK | 

ERASEFILE name 

LOAD file (package) 
SAVE file (packageflist)) 
SETDISK drive (slot) (vol) 


Property lists 

GPROP name prop 
PLIST name 

PPROP name prop object 
PPS (packageflist)) 
REMPROP name prop 


Error handling, catcu. 
and THROW 
CATCH name list 
ERROR 

THROW name 


Further procedure 
definition and 
redefinition 

COPYDEF newname name 
DEFINE procname list 
PRIMITIVEP name 

TEXT procname 


Miscellaneous Procedures 
DEFINEDP word 
GO word 

LABEL word 
NODES 
RECYCLE 
REPARSE 

BPT 
CONTENTS 
DEPOSIT na 
EXAMINE n 
PRINTER slot 


Editing Commands 


*¢ OF DELETE 
se 
*CTRL-A 
*CTRL-B 
CTRL-C 
*CTRL-D 
*CTRL-E 
*CTRL-F 
*CTRL-H 
*CTRL-K 
CTRL-L 
*CTRL-M 
CTRL-N 
CTRL-O 
CTRL-P 
*CTRL-U 
CTRL-V 
*CTRL-Y | 
ESC V 
ESC < 
ESC > 


An asterisk (*) indicates an editing command which works 





Magic Words 
END ; 
ERRACT 

ERROR 

FALSE _ 
PROCPKG 
REDEFP 
STARTUP 


TOPLEVEL 


TRUE 
VALPKG 
AYZZY 
SYSTEM 


Special Characters 


CTRL-G 
CTRL-Q 
CTRL-S 
CTRL-T 
CTRL-W 
CTRL-Z 


both inside and outside of the editor. 


